Question

(Язык Pascal) 1. Написать программу, которая запрашивает размерность двумерного массива, заполняет его случайными числами от 4 до 9 и вычисляет сумму элементов, сумма индексов у которых четная.

2. Написать программу, которая запрашивает размерность двумерного массива, заполняет его случайными числами от -6 до 6 и заменяет на 0 значения отрицательных элементов массива.

Answer 1

Ответ:

// Написать программу, которая запрашивает размерность двумерного массива,

// заполняет его случайными числами от 4 до 9 и

// вычисляет сумму элементов, сумма индексов у которых четная.

program massiv;

uses crt;

var a:array[1..10,1..10] of integer;{описание массива}

   i,j,n,s,sum:integer;

begin

  clrscr;

  randomize;{генератор случайных чисел}

  writeln ('введите размерность массива');

  readln(n);

  s:=0;

for i:=1 to n do begin

for j:=1 to n do begin

a[i,j]:= random(5)+5;

write(a[i,j]:3);

end;

writeln;

end;

writeln;

for i:=1 to n do begin

for j:=1 to n do begin sum:=i+j;

if (sum mod 2=0) then

s:=s+a[i,j];

end;

end;

writeln ('сумма элементов, сумма индексов у которых четная=',s);

end.

Объяснение: