Регистрация
Саня3411
22.01.2021 05:12
Информатика
Есть ответ 👍

Код содержащий в кодовых комбинациях разное число символов

238
298
Посмотреть ответы 2

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

ghigalskiidani
ghigalskiidani
4,8(82 оценок)
Равномерный, вроде я так думаю
TOkenov
TOkenov
4,4(56 оценок)

 

паскаль

 

 

 

1)program abc; uses crt;

var s: integer; a: array [1..10,1..10];

begin 

for i: =1 to 10 do

for j: =1 to 10 do

read(a[i,j]);

writeln;  

begin

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

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

write('сумма равна',s)

end.

 

 

2) 

program abc; uses crt;

var min: integer;   a: array [1..10,1..10];  

begin 

for i: =1 to 10 do

for j: =1 to 10 do

read(a[i,j]);

writeln;  

 

  min: =a[1,1];

for i: =1 to 10 do

for j: =1 to 10 do

if a[i,j]< min then min: =a[i,j];

writeln('минимальный элемент   равен',min);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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