Предмет: Информатика,
автор: Майлена
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!
Отрицательные элементы возвести в квадрат. Сколько замен элементов массива произошло?
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Окружающий мир,
автор: 200111013
Предмет: Математика,
автор: vikanis
Предмет: Французский язык,
автор: garman2007
Предмет: История,
автор: Лерочку
Предмет: Математика,
автор: ЛизаАндреева