Переписать чётные элементы в другой одномерный массив

@Daedalus · Регистрация: 05.06.2013

Author24 — интернет-сервис помощи студентам

1.Переписать чётные элементы в другой одномерный массив.
2.В двумерном массиве переписать элементы последней строки в одномерный массив.

@Ginar · 10.06.2013, 10:37

1.

Pascal

Program v;
uses crt;
const n=10;
var a: array [1..n, 1..n] of integer;
b: array [1..100] of integer;
i,j,k,l: integer;
BEGIN
Randomize;
WriteLN('Массив А: ');
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(100)-30;
Write(a[i,j]:5);
WRITELN;
WRITELN;
k:=1;
For i:=1 to n do begin
For j:=1 to n do begin
If a[i,j] mod 2=0 then begin b[k]:=a[i,j];
Write(b[k]:5); k:=k+1
end;
end;
end;
WRITELN;
READLN;
END.

Добавлено через 2 минуты

Pascal

Program v;
uses crt;
const n=10;
var a: array [1..n, 1..n] of integer;
b: array [1..10] of integer;
i,j: integer;
BEGIN
Randomize;
WriteLN('Массив А: ');
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(100)-30;
Write(a[i,j]:5);
WRITELN;
WRITELN;
For i:=1 to n do begin
b[i]:=a[i,n];
Write(b[i]:5);end;
READLN;
END.

@Daedalus 0 / 0 / 0 Регистрация: 05.06.2013 Сообщений: 3
		1
	Переписать чётные элементы в другой одномерный массив 10.06.2013, 10:23. Показов 1737. Ответов 1 Метки нет (Все метки) 1.Переписать чётные элементы в другой одномерный массив. 2.В двумерном массиве переписать элементы последней строки в одномерный массив. 0

	10.06.2013, 10:37

Переписать чётные элементы в другой одномерный массив

Решение