Ответы
Ответ дал:
1
a)
var
a: array [1..20] of integer;
i, count: integer;
begin
count:=0;
for i := 1 to 20 do
begin
readln(a[i]);
if a[i] >= 0 then
count += 1;
end;
writeln(count)
end.
в)
var a: array [1..20] of integer;
i, countplus, countminus: integer;
begin
countplus := 0;
countminus := 0;
for i := 1 to 20 do
begin
readln(a[i]);
if a[i] > 0 then
countplus += 1;
if a[i] < 0 then
countminus += 1;
end;
writeln(countplus, ' ', countminus)
end.
Qwerty6587:
Чел а)-в) значит а, б,в
a: array [1..20] of integer;
i, count: integer;
begin
count:=0;
for i := 1 to 20 do
begin
readln(a[i]);
if a[i] mod k= 0 then
count += 1;
end;
writeln(count)
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад