На цикл с параметром. ,учительница сама придумывает ,в интернете нет ответов. 1)с клавиатуры вводятся 20 чисел,среди которых есть положительные и отрицательные. подсчитать количество положительных чисел. 2)с клавиатуры вводятся оценки двадцати учащихся по . найти среднее арифметическое этих оценок.

170

263

Посмотреть ответы 2

Ответы на вопрос:

ekaterinapsncen

Информатика

4,7(40 оценок)

№1 var a: array[1..20] of integer; i,k: integer; begin k: =0; writeln('введите числа'); for i: =1 to 20 do begin read(a[i]); if a[i]> 0 then k: =k+1; end; writeln('количество положительных чисел = ',k); end. №2var a: array[1..20] of integer; i,sum: integer; begin sum: =0; writeln('введите оценки'); for i: =1 to 20 do begin read(a[i]); sum: =sum+a[i]; end; writeln('среднее арифметическое этих оценок = ',sum/20); end.