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>
Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
Кодируется - пользователь набирает текст на клавиатуре, а текстовые символы кодируются в двоичные числа.
Структурируется - набранный текст заносится, например, в таблицу Excel, где каждый столбец имеет свое значение.
Хранится - файл таблицы Excel сохраняется на диск.
Удаляется - файл таблицы Excel больше не нужен пользователю и стирается с диска.
var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then
begin
y:=x/2;
writeln('y = ',y);
end
else
begin
if x>=0 then
y:=sqrt(3+x);
writeln('y = ',y);
end;
end.
14. Вася,Галя,Толя,Миша,Лена