Ответы
Ответ дал:
1
1) var
k, i, n: integer;
a: array [1..1000] of integer;
b: array [1..1000] of integer;
begin
k := 0;
readln(n);
for i := 1 to n do
readln(a[i]);
for i := n downto 1 do
if a[i] mod 2 = 0 then
begin
k += 1;
b[k] := a[i];
end;
write('Чётные элементы массива: ');
for i := 1 to k do
write(b[i], ' ');
writeln();
writeln('Их количество: ', k);
end.
2) var
k, i, n: integer;
a: array [1..1000] of real;
begin
readln(n);
readln(k);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if i mod k = 0 then
write(a[i], ' ');
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад