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

Question

Информатика

Корнилыч

7 марта, 01:41

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

+1

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