ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ ** МАССИВЫ В ПАСКАЛЕ!!!)),как решать не объяснили,а...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ НА МАССИВЫ В ПАСКАЛЕ!!!)),как решать не объяснили,а принести уже завтра надо(((

1)Заполните случайными числами целочисленный массив 10 на 10.Выведите на экран четвертую строку массива.

2)Дан целочисленный массив,содержащий n элементов и заполненный с клавиатуры.Найти наибольшее значение элемента массива.

Answer 1

1)

var

a:array[1..10,1..10] of integer;

i,j:integer;

begin

randomize;

 

 for j:=1 to 10 do

 for i:=1 to 10 do

a[i,j]:=random(51);

for i:=1 to 10 do

write(a[i,4);

end.

2)

var

n,max,i:integer;

 

 a:array[1..n] of integer;

begin

max:=0;

 

 read(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if a[i]>max then max:=a[i];

write(max);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Answer 2

Согласно правилам сервиса в одном вопросе нельзя задавать больше одного задания, так что я решаю 2.

 

2)

var a:array[1..n] of integer;

i,max:integer;

begin

for i:=1 to n do

readln(a[i]);

max := a[1];

for i:=2 to n do

if a[i]>max then max:=a[i];

writeln('max = ', max);

end.