<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a,b:integer; Read(a,b);
Writeln(max(a,b) mod min(a,b))
end.
Правда, не пойму, зачем ограничиваться числом 100?
const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(104)-37;
write (a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if (odd(a[i])=true) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.
<span>Монитор — аппарат, предназначенный для вывода графической или текстовой информации на Монитор</span><span>Колонки - Это акустическая система скромных размеров, зачастую со встроенным усилителем мощности, для воспроизведения сигнала, подаваемого с выхода звуковой карты компьютера.</span>
Формальное исполнение алгоритма означает, что исполнитель, не понимая смысла, но выполняя правильно каждую команду, может получить правильный результат.
Задание 1:
Var s,i,n : integer;
z: array [1..100] of integer;
Beginfor
i:= 1 to 8 do
Read (z[i]);
end.
Задание 2:
Var s,i,n : integer;
z: array [1..100] of integer;
BeginRead(n);
for i:= 1 to n do
Read (z[i]);
for i:= 1 to n do
begin
if z[i]<0 then s:= sqr(z[i]);
Write(s);
end;
end.
Задание 3:
Var s,i,n : integer;
z: array [1..100] of integer;
Begin
Read(n);
for i:= 1 to n do
Read (z[i]);
s:=0;
for i:= 1 to n do
if z[i]>10 then s:= s+1;
Write('koll=', s);
end.
