Var
f1, f2, i, j: integer;
a, b: array [1..5,1..5] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
f1 := 0;
f2 := 0;
for i := 1 to 5 do
begin
if (i = 3) then
continue
else
inc(f1);
f2 := 0;
for j := 1 to 5 do
if (j = 3) then
continue
else
begin
inc(f2);
b[f1][f2] := a[i][j];
end;
end;
end.
Вариант с вводом элементов:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
write('a[',i,'] = ');
readln (a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k = ', k);
end.
Вариант с рандомными элементами:
Program prog;
uses crt;
var a: array [0..999] of integer;
i, k, n: integer;
begin
clrscr;
randomize;
write('Размер массива n = ');
readln(n);
writeln;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('a[',i,'] = ',a[i]);
end;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln;
writeln('Количество четных чисел k =' , k);
end.
Если правильно понял ваше задание, то вот...
Однако всё равно не вполне ясна связь с разделом информатики, в котором опубликован вопрос.
"Изображённый на правой картинке воин вооружен современным оружием, способным поражать противника издалека. Его снаряжение практично и продуманно для ведения боя в современных условиях. Слева от него изображён воин, который жил раньше, поэтому его вооружение представляет себя только необходимые для ведения ближнего боя меч и щит. Такой воин лишён защитных качеств и удобства современной амуниции, вместо которой использует обычную одежду своего времени"
Какой-то старенький комп (512 кб видуха). Ну а если серьезно, то на хранение информации о цвете 1 точки потребуется 1 байт,
так как 256=2⁸. А 8 бит - 1 байт.
Одна страница займет 640*480 = 307200 Байт = 300 Кбайт. Значит в память влезет только одна страница. На вторую места не хватит.
