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

Question

Информатика

Феодула

31 августа, 00:15

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

+3

Ответы (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.