Регистрация
nastiaUA
18.10.2021 13:04
Информатика
Есть ответ 👍

Паскаль. 11 класс. составить массив из сумм по строкам и из минимума по столбцам. , умоляю.

262
275
Посмотреть ответы 1

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

p111111197
p111111197
4,4(37 оценок)

1)

var

a: array[1..10] of integer;

i: integer;  

begin

for i: =1 to 10 do

read(a[i]);

randomize;

for i: =1 to 10 do

a[i]: =random(136)+22;

for i: =1 to 10 do

if a[i]> 100 then writeln(a[i]);

end.

2.

var

a,n: integer;

begin

readln(a,n);

a: =a^n;

writeln(a);

end;

6.

var

x: array[1..5] of real;

i: integer;

begin

for i: =1 to 5 do

begin

 

read(x[i]);

 

if x[i]=9 then x[i]: =x[i]*3;

if x[i]> 9 then x[i]: =x[i]/10;

 

writeln(x[i]);  

end;  

  end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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