1.ввести массив из 30 целых чисел.вывести на экран все четные числа и их номер в исходном массиве
2.в каждой строке матрицы V(10,10) найти максимальный элемент и его номер записать в результирующий массив
|
|
|
|
1.
var
a:array[1..30]of integer;
i,m:integer;
begin
for i:=1 to 30 do
read(a[i]);
for i:=1 to 30 do
if a[i] mod 2=0 then write(a[i],' ',i,' ');
end.
2.
var
a:array[1..10,1..10]of integer;
i,j,m:integer;
begin
m:=low(m);
for i:=1 to 10 do
for j:=1 to 10 do begin
read(a[i,j]);
if m<a[i,j] then m:=a[i,j];end;
writeln(m);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
