Регистрация
девочка25th
22.04.2022 19:33
Информатика
Есть ответ 👍

Решить на массивы в решать не объяснили,а принести уже завтра 1)заполните случайными числами целочисленный массив 10 на 10.выведите на экран четвертую строку массива. 2)дан целочисленный массив,содержащий n элементов и заполненный с клавиатуры.найти наибольшее значение элемента массива.

283
339
Посмотреть ответы 3

Ответы на вопрос:

9639933p08o1o
9639933p08o1o
4,5(3 оценок)

согласно правилам сервиса в одном вопросе нельзя задавать больше одного , так что я решаю 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.

karpovaarina
karpovaarina
4,5(50 оценок)

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

grinevvlad98xuy
grinevvlad98xuy
4,6(78 оценок)
Больше в 1 случае конкретный

Популярно: Информатика