Регистрация
oksana1111156970
27.10.2022 18:44
Информатика
Есть ответ 👍

Тестовая работа по экселю

161
247
Посмотреть ответы 1

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

polinaokuneva0oumyci
polinaokuneva0oumyci
4,6(81 оценок)
Program n1; uses crt; const nn=1000; var   i,n,k: integer;   m: array[1..nn] of integer; begin k: =0; writeln('введите размерность массива');   read(n); writeln;   writeln('введите массив'); for i: =1 to n do begin readln(m[i]); if m[i]< 0 then begin   m[i]: =m[i]*m[i];   k: =k+1;   end;   end; for i: =1 to n do write(m[i],' ');   writeln; write('замена произошла ',k,' раз(а)'); end.

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