Program: losujący tablicę a następnie liczący średnia tych liczb oraz wyszukuje element największy.
Użytkownik podaje ilość elementów tablicy oraz ich wartość, program wylicza średnią oraz wskazuje maksymalny element tablicy.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program minmax;
uses crt;
var
a:array[1..100] of integer;
i,n,s,max,poz,ile:integer;
odp:char;
begin
clrscr;
randomize;
repeat
s:=0;
max:=0;
poz:=0 ;
ile:=0;
writeln('Ile wylosowac liczb');
readln(n);
for i:=1 to n do
begin
a[i]:=random(50)+2;
s:=s+a[i];
if max<a[i] then
begin
max:=a[i];
poz:=i;
end;
end;
for i:=1 to n do
begin
write(a[i]:4);
if (i mod 10=0) then writeln;
end;
writeln('Srednia: ' ,n, ' liczb wynosi ' ,s/n:0:2);
writeln('Max wynosi: ' ,max, ' na pozycji ',poz, ' w tablicy');
writeln;
writeln('Czy zakonczyc T/N');
readln(odp);
until (odp='T') or (odp='t');
end.