Регистрация
Jenyastai
17.09.2020 07:08
Информатика
Есть ответ 👍

Какие недостатки десятичной системы счисления

118
332
Посмотреть ответы 1

Ответы на вопрос:

макс13372004
макс13372004
4,6(81 оценок)

var i,k: integer;

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

begin

 for i:=1 to 10 do begin a[i]:=random(-10,10);

 writeln(a[i]);

 if a[i]>0 then begin k:=k+1;a[i]:=i;

 end; end;

 writeln('измененый массив ');

  for i:=1 to 10  do writeln(a[i]);

end.

Популярно: Информатика