Дана последовательность целых чисел заканчивающихся нулем написать программу которая́ подсчитывает количество чисел в последовательности.
Ответы
1.
program ll1;
var A: array[1..20] of integer;
i: integer;
begin
Randomize;
for i:=1 to 20 do
begin
A[i]:=random();
if A[i] mod 2 = 0 then writeln(A[i]);
end;
end.
2 .
program ll1;
const N = 20;
var A: array[1..20, 1..20] of integer;
i, j, k: integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
readln(A[i, j]);
if (A[i, j] >= 0) and (A[i, j] < 10) then
k:=k+1;
end;
writeln(k);
end.
3.
program ll1;
var A: array[1..20] of integer;
k, x, y: integer;
begin
Randomize;
readln(x);
readln(y);
for k:=1 to 20 do
begin
A[k]:=random();
if A[k] >= 0 then
A[k]:=x;
else
A[k]:=y;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1.
program ll1;
var A: array[1..20] of integer;
i: integer;
begin
Randomize;
for i:=1 to 20 do
begin
A[i]:=random();
if A[i] mod 2 = 0 then writeln(A[i]);
end;
end.
2 .
program ll1;
const N = 20;
var A: array[1..20, 1..20] of integer;
i, j, k: integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
readln(A[i, j]);
if (A[i, j] >= 0) and (A[i, j] < 10) then
k:=k+1;
end;
writeln(k);
end.
3.
program ll1;
var A: array[1..20] of integer;
k, x, y: integer;
begin
Randomize;
readln(x);
readln(y);
for k:=1 to 20 do
begin
A[k]:=random();
if A[k] >= 0 then
A[k]:=x;
else
A[k]:=y;
end;
end.