Решить циклом for с использованием массива: ввести данные о весе и росте n учащихся 9 класса. определить средние вес и рост учащихся в этом классе. заранее за ответ : з
Program n1; const n=10; var a : array[1..n] of integer; a1: array[1..n] of integer; s,s1,i: integer; begin s := 0; s1:=0; for i := 1 to n do begin write('введите рост ', i,' ученика: ' ); readln(a[i]); s := s + a[i]; write('введите вес ',i,' ученика: '); readln(a1[i]); s1:=s1+a1[i]; end; writeln('средний рост: ',s/n); writeln('средний вес: ',s1/n); end.
//прога на Pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('Введите кол-во учеников: '); readln (n); setLength (mas, n); for i:=0 to n-1 do begin write ('Введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('Введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n) end.
const n=10;
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
s,s1,i: integer;
begin
s := 0;
s1:=0;
for i := 1 to n do
begin
write('введите рост ', i,' ученика: ' ); readln(a[i]);
s := s + a[i];
write('введите вес ',i,' ученика: ');
readln(a1[i]);
s1:=s1+a1[i];
end;
writeln('средний рост: ',s/n);
writeln('средний вес: ',s1/n);
end.
type
myrec = record
rost : byte;
ves : byte;
end;
var
mas : array of myrec;
n, i : byte;
sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
for i:=0 to n-1 do
begin
write ('Введите вес ', i+1, '-го ученика: ');
readln (mas[i].ves);
inc (sumves, mas[i].ves);
write ('Введите рост ', i+1, '-го ученика: ');
readln (mas[i].rost);
inc (sumrost, mas[i].rost);
end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.