Придумай , при решении которой все инструкции нужно выполнить последовательно одну за другой. составь блок- схему решения этой и опиши алгоритм на естественном языке.зарание !
Задача: Петя и Маша собирали ... грибы)). До обеда Петя собрал 65 грибов, Маша - 58, после обеда оба ослабли и Петя собрал 43, Маша - 33. Сколько грибов собрали дети за день? Блок схема - через 5 мин))
Задача: найти среднее арифметическое положительных чисел одномерного массива. решение program al; const n=15 ;var a:array[1..n]of integer; k,s,i:integer; sr:real; begin writeln('vvedite massiv='); for i:=1 to n do readln(a[i]); s:=0; k:=0; sr:=0; for i:= 1 to n do if a[i]>0 then begin k:=k+1; s:=s+a[i]; end; sr:=s/k; writeln('sr=',sr); readln; end. ход действий: сперва находим количество положительных элементов затем находим сумму и теперь можем найти и среднее арифметическое..
Петя и Маша собирали ... грибы)). До обеда Петя собрал 65 грибов, Маша - 58, после обеда оба ослабли и Петя собрал 43, Маша - 33.
Сколько грибов собрали дети за день?
Блок схема - через 5 мин))
решение
program al;
const n=15
;var a:array[1..n]of integer;
k,s,i:integer;
sr:real;
begin
writeln('vvedite massiv=');
for i:=1 to n do
readln(a[i]);
s:=0;
k:=0;
sr:=0;
for i:= 1 to n do
if a[i]>0 then begin
k:=k+1;
s:=s+a[i];
end;
sr:=s/k;
writeln('sr=',sr);
readln;
end.
ход действий:
сперва находим количество положительных элементов
затем находим сумму и теперь можем найти и среднее арифметическое..