Решение должно корректно работать в PascalABC.NET, версии не выше 2.2 Заменить максимальный элемент на номер первого нулевого элемента массива.
Решение должно корректно работать в PascalABC.NET, версии не выше 2.2
Заменить максимальный элемент на номер первого нулевого элемента массива.
Гость
Ответ(ы) на вопрос:
Гостьvar ar:array[1..10] of integer;
max,maxi,zeroi,i:integer;
begin
randomize;
max:=-1;
writeln('First array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if max
Не нашли ответ?
Похожие вопросы