РЕШИТЬ ЗАДАЧИ НА МАССИВЫ В ПАСКАЛЕ!,как решать не объяснили, а принести уже завтра надо1Заполните случайными числами целочисленны

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

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.


See also: