Дан массив из 10 элементов целого типа. Найти минимальный элемент массива, умножить его на 6, а затем вычесть его из каждого элемента. Весь массив напечатать.

Question

Информатика

Ануша

24 ноября, 17:29

Дан массив из 10 элементов целого типа. Найти минимальный элемент массива, умножить его на 6, а затем вычесть его из каждого элемента. Весь массив напечатать.

+2

Ответы (2)

Знаете ответ?

Олюня · Answer 1

Var

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

i, k, m:integer;

begin

for i: = 1 to 10 do

a[i]: = Random (0,100) ;

writeln (a) ;

m:=a[1];

for i:=2 to 10 do

if a[i]
m:=m*6;

for i: = 1 to 10 do

a[i]: = a[i]-m;

writeln (a) ;

end.

Арсения · Answer 2

Арсения 24 ноября, 19:13

0

Ответ на ABC Pascal