ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ НА МАССИВЫ В ПАСКАЛЕ!!!)),как решать не объяснили,а принести уже завтра надо(((
1)Заполните случайными числами целочисленный массив 10 на 10.Выведите на экран четвертую строку массива.
2)Дан целочисленный массив,содержащий n элементов и заполненный с клавиатуры.Найти наибольшее значение элемента массива.
Ответы
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.
Согласно правилам сервиса в одном вопросе нельзя задавать больше одного задания, так что я решаю 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.