Напишите сочинение по теме "зачем в жизни таблицы"10-11 предложений. 34 :

Наша жизнь полна разных трудностей(знаю звучит абсурдно но не обессуть). Есть разные предметы по которым (в основном технологические) иногда требуется составление таблицы. Конечно для каждого кажется легче свой кому-то легче учить сплошным текстом, кому то легче таблицами или схемами. Но, по моему намного легче учить таблицами. Кроме того таблицы нужны не только для учёбы ,но и для работы например: тебе нужно написать отчёт по работе, и конечно будет намного легче для понятия если ты напишешь это в виде таблицы или схемы чем свободным текстом. Ещё например в жизни могут понадобятся таблицы для того чтобы составить решить задачу-вот для чего нужны таблицы.

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45