Дан массив целых чисел (N =100). Выведите все парные элементы массива в таком порядке, как они встречаются - id1073731520221021 от Dabby1 21.10.2022 21:05

Question

Информатика: Дан массив целых чисел (N =100). Выведите все парные элементы массива в таком порядке, как они встречаются в массиве. язык - Delphi

Dabby1 · Accepted Answer

Const n=4;
var f:text;
a:array[1..n,1..n] of integer;
i,j,t:integer;
begin
writeln('1:');
assign(f,'my.txt');
reset(f);
for i:=1 to n do
begin
for j:=1 to n do
begin
read(f,a[i,j]);
write(a[i,j]:3);
end;
readln(f);
writeln;
end;
close(f);
for i:=1 to n do
for j:= i+1 to n do
begin
t:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=t;
end;
writeln('2:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.

Пример:
Файл my.txt:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41

Результат:
1:
23 28 19 23
34 14 8 14
44 20 14 48
38 47 20 41
2:
23 34 44 38
28 14 20 47
19 8 14 20
23 14 48 41

Дан массив целых чисел (N <=100). Выведите все парные элементы массива в таком порядке, как они встречаются в массиве. язык - Delphi

MOGZ ответил