Задание:
Хотя бы 1. Через массивы. 9 класс.1. Заменить в массиве все максимальные элементы нулям. Как должно получиться: 2. В массиве 1 элемент наибольший, 1 наименьший, поменяйте их местами.3. В целочисленном массиве найти среднее арифметические черных чисел.
Решение:
Задача 3.var a: array [1… 100] of integer; n,i,c,s: integer; begin readln (n); for i: =1 to n do begin a[i]: =random (100); if a[i] mod 2=0 then begin inc (c); s: =s+a[i]; end end; writeln (s/c); end.
Знаете другой ответ?