Предмет: Информатика,
автор: Литола
1. Написать программу, которая подсчитывает количество, сумму и среднее арифметическое положительных чисел последовательности. Размер последовательности определяет сам пользователь программы.
2. Написать программу, которая подсчитывает сумму и количество чисел последовательности, делящихся на 8 без остатка. Размер последовательности определяет сам пользователь программы. Принять, что последовательность состоит только из целых положительных чисел.
eugene7870:
ну и в чем сложность?
Тебе еще нужно?
Ответы
Автор ответа:
2
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.
Прости что так криво. Вроде нормально вставлял
Ничего, разберусь. Спасибо ^.^
вставь в коммент здесь
и все норм вставится
var
summa,Shet,a,b,c:integer;
SAP:real;
L:array [1..999] of integer;
begin
Write('Сколько чисел? ');
read(a);
for b:=1 to a do begin
write('Введите число' );
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.
summa,Shet,a,b,c:integer;
SAP:real;
L:array [1..999] of integer;
begin
Write('Сколько чисел? ');
read(a);
for b:=1 to a do begin
write('Введите число' );
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.
А последние. Убери массив. Я хотел сначала с массивом но потом передумал(вдруг у вас этой темы еще не было)!
Похожие вопросы
Предмет: Литература,
автор: Mar1317
Предмет: ОБЖ,
автор: vladakolle2007
Предмет: Математика,
автор: 2vladkarpenkovlad2
Предмет: Математика,
автор: нурлан19
Предмет: Алгебра,
автор: викториябабай