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