Question

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

Answer 1

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Answer 2

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

Answer 3

Конечно, я помогу вам решить задачи на массивы на языке Pascal.

1) Заполнение массива случайными числами и вывод четвертой строки:

program ArrayExample;

const
  N = 10; // Размер массива
  M = 10; // Диапазон случайных чисел

var
  arr: array[1..N, 1..N] of integer;
  i, j: integer;

begin
  // Заполняем массив случайными числами
  randomize;
  for i := 1 to N do
    for j := 1 to N do
      arr[i, j] := random(M) + 1;

// Выводим четвертую строку массива
  writeln('Четвертая строка массива:');
  for j := 1 to N do
    write(arr[4, j], ' ');
  writeln;
end.

В этой программе мы создаем двумерный массив размером 10x10, заполняем его случайными числами от 1 до 10 и выводим четвертую строку массива.

2) Поиск наибольшего значения в массиве:

program MaxValue;

const
  N = 100; // Максимальный размер массива

var
  arr: array[1..N] of integer;
  n, i, maxValue: integer;

begin
  // Вводим размер массива с клавиатуры
  writeln('Введите размер массива (не более ', N, '): ');
  readln(n);

// Вводим элементы массива с клавиатуры
  writeln('Введите элементы массива:');
  for i := 1 to n do
    readln(arr[i]);

// Находим наибольшее значение
  maxValue := arr[1];
  for i := 2 to n do
  begin
    if arr[i] > maxValue then
      maxValue := arr[i];
  end;

// Выводим результат
  writeln('Наибольшее значение в массиве: ', maxValue);
end.

В этой программе мы сначала вводим размер массива и его элементы с клавиатуры, а затем находим наибольшее значение в массиве и выводим его.