Регистрация
Yoss12
30.01.2022 07:34
Информатика
Есть ответ 👍

Получить квадратную матрицу порядка n* n.

226
395
Посмотреть ответы 2

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

KinezyOldside
KinezyOldside
4,5(56 оценок)

ответ:

program matrica;

const k=10;

type vector=array[1..k]o byte; masiv=aray[1..k] o vector;

var b: masiv;

procedure vved(n: byte; var a masiv);

var i,j: byte;

begin

randomize;

for i: =1 to n do

for j: =1 to n do

a[i,j]: =0;

for j: =round(n/2) to n do

for i: =n-j+1 to j do

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

end;

proceure vuvid(n: byte; : masiv);

var i,j: byte;

begin

for i: =1 to   do

begin

for j: =1 to n do

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

riteln;

end;

end;

procedure rahnok(n: byte; a: masiv);

var i,j: byte; s,l: byte;

begin

l: =0;

for j: =1 to round(n/2) do

for i: =j to (n-j+1) do

if (a[i,j] mod 2=0) then l: =l+1;

writeln('kilkist=' l);

подробнее - на -

объяснение:

danilpro2017
danilpro2017
4,6(22 оценок)

var a,s,i: integer;

begin

s: =0;

for i: =1 to 5 do begin

write('введите число: ');

readln(a);

s: =s+a;

end;

write('сумма: ',s);

end.

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