Задание:
1) Под читать сколько раз встречается -2 в равномерном массиве состоящая из 10 элементов 2) Составить программу нахождение арифметического элементамассива состоящая из 5 элементов
Решение:
varmas: array[1… 10] of integer; mas1: array [1… 5] of integer; i: integer; count: integer; sum: integer; sr: real; begincount: =0; sum: =0; for i: =1 to 10 dobeginreadln (mas[i]); // заполняем первый массивif (mas[i]=-2) then count: =count+1; end; for i: =1 to 5 dobeginreadln (mas1[i]); sum: =sum+mas1[i]; end; sr: =sum/5; writeln ('-2 встречается ', count,' раз'); writeln ('Среднее арифметическое равно', sr); end.
Знаете другой ответ?