Одномерный массив из 13 элементов заполнить случайным образом числами - 7 до 7. Присвоить 5-му элементу удвоенное значение 10-го элемент, а 1-му элементу значение 4-го элемента.

Question

Информатика

Томила

28 августа, 23:44

Одномерный массив из 13 элементов заполнить случайным образом числами - 7 до 7. Присвоить 5-му элементу удвоенное значение 10-го элемент, а 1-му элементу значение 4-го элемента.

+1

Ответы (1)

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

Феврония · Answer 1

Var a:array[1 ... 13] of integer; i:integer; beginrandomize; for i:=1 to 13 do begin a[i]:=random (14) - 7; write (a[i],' ') ; end; a[5]:=2*a[10]; a[1]:=a[4]; writeln; for i:=1 to 13 do begin write (a[i],' ') ; end;

end.