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

Question

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

Гость

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

Accepted Answer

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.