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.
begin s := ''; m := 0; n := 0; min := 10; writeln('Введите число'); repeat read(c); s := s + c; i := StrToInt(c); if i mod 2 = 0 then if c <> '0' then m := m + 1; // для задания 2) n := n + 1; if i < min then min := i until c = '0'; writeln('Введено число ', s, ', в нем четных цифр- ', m) end.
program Ex2;
var s: string; i, d, n, min: integer;
begin min := 10; writeln('Введите число'); readln(s); n := length(s); for i := 1 to length(s) do begin d := StrToInt(s[i]); if d < min then min := d end; writeln('Введено число ', s, ', в нем цифр- ', n, ', минимальная- ', min) 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.