Forum 1 semestru informatyki w SP ZSTI
REJESTRUJCIE SIE !! (najlepiej z imienia i nazwiska)
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Forum 1 semestru informatyki w SP ZSTI Strona Główna
->
Na każdy temat
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
ZSTI
----------------
Zadania
Prace semestralne
Na każdy temat
MAteriały na egzaminy
----------------
Sieci i systemy
UTK
Przegląd tematu
Autor
Wiadomość
Czak Noris
Wysłany: Pią 22:46, 27 Sty 2006
Temat postu:
program sumasrednia;
{Czak Noris}
uses crt;
var
tab: array[1..50] of integer;
n,i,suma: integer;
srednia: real;
begin;
clrscr;
writeln('Podaj ilosc liczb do obliczenia sumy i sredniej - max 50:');
readln(n);
for i:=1 to n do
begin
writeln('Podaj liczbe nr ',i,':');
readln(tab[i]);
end;
suma:=0;
for i:=1 to n do
suma:=suma+tab[i];
writeln('Suma wpisanych liczb wynosi: ',suma);
srednia:=(suma/n);
writeln('Srednia wynosi: ',srednia:18:2);
repeat until keypressed;
end.
T_O_M_1983
Wysłany: Nie 15:34, 22 Sty 2006
Temat postu: Potrzebuje program z Pascala!!!
Siemka, potrzebuje napisany programik w Pascalu, a mianowicie takie:
...wprowadź z klawiatury ''n'' liczb, obliczyć ich sumę i średnią.
To było podobno na zajęciach. Prosze umieszczenie na forum jak ktoś to ma i z góry bardzo dziękuję
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin