Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
ребяяяят,выручайте
1.ввести массив из 30 целых чисел.вывести на экран все четные числа и их номер в исходном массиве
2.в каждой строке матрицы V(10,10) найти максимальный элемент и его номер записать в результирующий массив
1 | Автор: ekkatterrrrinnaa | 2012-05-21, 17:38   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-05-21, 20:18   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: