Заполнить массив, состоящий из 100 элементов в автоматическом режиме. Найти и изменить пятидесятый элемент массива.

Question

Информатика

Марьяна

16 июля, 14:51

Заполнить массив, состоящий из 100 элементов в автоматическом режиме. Найти и изменить пятидесятый элемент массива.

+5

Ответы (1)

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

Меля · Answer 1

Var

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

i:byte;

begin

for 1 to 100 do a[i]:=random (100) ;

writeln ("50 элемент массива = ", a[50]) ;

writeln ("введите новое значение") ;

readln (a[50]) ;

end.