Вэлектронную таблицу занесли результаты тестирования учащихся по и информатике . на рисунке первые строки - id128514120210529 от kashamovasha 29.05.2021 08:41

Question

Информатика: Вэлектронную таблицу занесли результаты тестирования учащихся по и информатике . на рисунке первые строки получившейся таблицы. a b c d 1 ученик округ информатика 2 брусов анатолий западный 18 12 3 васильев александр восточный 56 66 4 ермишин роман северный 44 49 5 моникашвили эдуард центральный 65 78 6 круглов никита центральный 57 67 7 титова анастасия северный 54 63 в столбце а указаны фамилия и имя учащегося; в столбце в — округ учащегося; в столбцах с, d — , полученные, соответственно, по и

kashamovasha · Accepted Answer

Var
ar: array[1..10]of integer;
i, c, s: integer;
begin
s := 0;
c := 0;
randomize;
for i := 1 to 10 do ar[i] := random(-10, 10);
writeln('Полученный массив:');
for i := 1 to 10 do write(ar[i], ' ');
writeln;
for i := 1 to 10 do if(ar[i] <> 0) then c := c + 1;
writeln('Количество ненулевых элементов = ', c);
for i := 1 to 10 do if(ar[i] <> 0) then s := s + ar[i];
writeln('Сумма всех его ненулевых элементов = ', s);
write('Их среднее арифметическое = ',s/c);
end.

MOGZ ответил