Ответы
Ответ дал:
1
var a: array [1..1000]of integer;
i,n:integer;
begin
Write('Размер массива N = ');
readln(n);
for i:= 1 to n do begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:= 1 to n do
if (i mod 2 = 0) and (a[i] mod 2 = 0) then
write(a[i], ' ');
end.
i,n:integer;
begin
Write('Размер массива N = ');
readln(n);
for i:= 1 to n do begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:= 1 to n do
if (i mod 2 = 0) and (a[i] mod 2 = 0) then
write(a[i], ' ');
end.
POMOGIMNE123e:
А можно как то без "Program prog" и "Uses crt"?
var a: array [1..1000]of integer;
i,n:integer;
begin
Write('Размер массива N = ');
readln(n);
for i:= 1 to n do
readln(a[i]);
writeln;
for i:= 1 to n do
if (i mod 2 = 0) and (a[i] mod 2 = 0) then
write(a[i], ' ');
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад