Ответы
Ответ дал:
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:
Чел а)-в) значит а, б,в
Можешь ещё к б написать?
Пж
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] mod k= 0 then
count += 1;
end;
writeln(count)
end.
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.
После begin добавить строчку: readln(k)
спс
Вас заинтересует
1 год назад
2 года назад
8 лет назад
9 лет назад