Задание:
ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ НА МАССИВЫ В ПАСКАЛЕ!) , как решать не объяснили, а принести уже завтра надо (1) Заполните случайными числамицелочисленный массив 10 на 10. Выведите на экран четвертую строку массива.2) Дан целочисленный массив, содержащий n элементов и заполненный с клавиатуры. Найти наибольшее значение элемента массива.
Решение:
1) vara: array[1… 10,1… 10] of integer; i,j: integer; beginrandomize; for j: =1 to 10 do for i: =1 to 10 doa[i,j]: =random (51); for i: =1 to 10 dowrite (a[i,4); end.2) varn,max,i: integer; a: array[1… n] of integer; beginmax: =0; read (n); for i: =1 to n doread (a[i]); for i: =1 to n doif a[i]>max then max: =a[i]; write (max); end.
Знаете другой ответ?