Заполнить массив, состоящий из 100 элементов в автоматическом режиме. Найти и изменить пятидесятый элемент массива.
Answers & Comments
denivasi
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.
Answers & Comments
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.