1)const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i],' ');writeln;
<span>end.
А вторую и третью я объединила:
</span>const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;i,min:integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(101)+0;
for i:=1 to 5 do write(a[i],' ');writeln;
min:=a[1];
for i:=2 to 5 do if a[i]<min then min:=a[i];
writeln(min);
end.
11+7+1=19 клубков
она может вытащить 11 синих клубков и 7 зеленых но если она вытащит еще один клубок. то ОБЯЗАТЕЛЬНО вытащит 1 клубок красной шерсти
Var
s, res: string;
k, i, j: integer;
c: char;
begin
read(s);
s := s + chr(10);
for i := 1 to length(s) do
if s[i] = c then
k := k + 1
else begin
if k <= 2 then
for j := 1 to k do
res := res + c
else
res := res + '^' + inttostr(k) + c;
c := s[i];
k := 1;
end;
writeln(res);
end.
Это сложно.
Но можно решить.
Через 5 мин отвечу.
Ну всё пока
<u>Простой алгоритм из 9 шагов:
</u>1) Берем сковороду
2) Ставим на нагретую плиту
3) Берем 3 яйца
4) Берем тарелку
5) Разбиваем яйца в тарелку
6) Взбиваем яйца
7) Выливаем на сковороду
8) Ждем 5 минут
9) Выключаем плиту<u>
</u>