Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
Ответ:
лучше конечно же отнести, в мастерскую, такая проблема скорее всего решается бесплатно
Объяснение:
попробуй отключить провод питания компьютера.
попробуй ввести команды чтобы зайти в BIOS и оттуда перезагрузить комп.
Вопрос не понятен попроще написать нельзя?
Возведение в квадрат
var a: integer;
begin
read(a);
write(a^2);
end.
Const
m = 10;
var
a: array[1..m] of integer;
i,j, min: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
if (i=1) or (a[i]<min) then min:=a[i];
write (a[i],'; ');
end;
writeln;
for i:=1 to m do
begin
if a[i]=min then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
break;
end;
end;
a[m]:=0;
write('Измененный массив: ');
for i := 1 to m-1 do
write (a[i],'; ');
<span>end.</span>