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

Question

Информатика

Ануша

30 января, 11:05

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

+3

Ответы (2)

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

Арсения · Answer 1

Арсения 30 января, 11:13

0

Ответ на ABC Pascal

Олюня · Answer 2

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.