Предмет: Химия, автор: maksimbrushnivska

помогите пожалуйста, очень срочно

Приложения:

Ответы

Автор ответа: Sjjsjdjsisj

0

Ответ:

украинский не знаю сорри

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Английский язык, автор: Никас11

как перевести на русский язык с английского языка слово I'll

2 года назад

Предмет: Русский язык, автор: Aglaz

Определите склонение имен существительных: перо, напильник, Карусель ,вода, дедушка, картофель, полотенце, урожай, учение, деготь, дядя, печаль, кастрюля???

2 года назад

Предмет: Окружающий мир, автор: plotnot

Сочини рассказ об одном дне жизни европейца конца XIX века. Используй в нём свой знания о технических новинках того времени

2 года назад

Предмет: Алгебра, автор: bossss191

Найдите первый член арифметической прогрессии An, если a5 =12, a11 = 30

8 лет назад

Предмет: Информатика, автор: edu24

PascalABC.
Помогите объединить 3 программы.
1. Program ssee;
var a:array [1..20] of integer;
i, k: integer;
begin
for i:= 1 to 20 do a[i]:= random(51)-25;
k:= 0;
for i:= 1 to 20 do
if a[i]<0 then k:=k+1;
writeln('Кол-во отриц.эл.: ', k);
for i:= 1 to 20 do write( a[i]:4);
end.

2. Program fd;
var a: array [1..20] of integer;
i: integer;
begin
for i:= 1 to 20 do a[i]:= random (51)-25;
for i:=1 to 20 do
if a[i] mod 3=0 then writeln ('Найден эл. A[', i, ']= ');
for i:=1 to 20 do write(a[i]:4);
end.

3. Program fd;
var a: array [1..20] of integer;
i: integer;
begin
for i:= 1 to 20 do a[i]:= random (51)-25;
for i:=1 to 20 do
if a[i] mod 3=0 then writeln ('Найден эл. A[', i, ']= ');
for i:=1 to 20 do write(a[i]:4);
end.

8 лет назад