Вводится следующий поток данных:
7, 2, 3, -2, 4, -7, 10, 1
напишите программу по данной блок-схеме и вычислите результат
ПОМОГИТЕ РЕШИТЬ. ПОЖАЛУЙСТА!!!!!!!!!
Приложения:
![](https://st.uroker.com/files/17d/17d51686c52f482ac92fd10862488b31.jpg)
Ответы
Ответ дал:
0
var
n,s,k,a,i:integer;
begin
Read(n);
s:=0; k:=0;
for i:=1 to n do begin
Read(a);
s:=s+a;
if a mod 2=0 then Inc(k)
end;
Writeln(s,' ',k)
end.
Результат
7 2 3 -2 4 -7 10 1
11 4
n,s,k,a,i:integer;
begin
Read(n);
s:=0; k:=0;
for i:=1 to n do begin
Read(a);
s:=s+a;
if a mod 2=0 then Inc(k)
end;
Writeln(s,' ',k)
end.
Результат
7 2 3 -2 4 -7 10 1
11 4
Ответ дал:
0
var n,s,k,i:integer;
a:array[1..10] of integer;
begin
readln(n);
s:=0; k:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
if a[i] mod 2 = 0 then k:=k+1;
end;
writeln(s,' ',k);
end.
Пример:
7
2 3 -2 4 -7 10 1
11 4
a:array[1..10] of integer;
begin
readln(n);
s:=0; k:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
if a[i] mod 2 = 0 then k:=k+1;
end;
writeln(s,' ',k);
end.
Пример:
7
2 3 -2 4 -7 10 1
11 4
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад