1. написать программу, которая подсчитывает количество, - вопрос №86900181 от Vladik451051 22.02.2020 17:45

Question

Информатика: 1. написать программу, которая подсчитывает количество, сумму и среднее арифметическое положительных чисел последовательности. размер последовательности определяет сам пользователь программы. 2. написать программу, которая подсчитывает сумму и количество чисел последовательности, делящихся на 8 без остатка. размер последовательности определяет сам пользователь программы. принять, что последовательность состоит только из целых положительных чисел.

Vladik451051 · Answer

Varsumma,Shet,a,b,c:integer;SAP:real;L:array [1..999] of integer;beginWrite( Сколько чисел? );read(a);for b:=1 to a do beginwrite( Введите число );read(c);if (c 0) then begin Shet:=Shet+1; summa:=summa+c; SAP:=SAP+c; end;end;SAP:=SAP/Shet;Writeln( Сумма = ,summa, Сред = ,SAP:5:5, Количество = ,Shet);read(a);end....