ФОРМАЛЬНАЯ ЛОГИКА? О_О ЧУВАК, ТЫ ТОЖЕ ЕЕ УЧИШЬ?
A: Все компьютеры черные; Все дети любят Пушкина.
I: Некоторые климатические пояса холодные; Часть клеток в организме нервные.
E: Все числа не делятся на ноль.
O: Некоторые люди не знают латынь; Почти все компьютеры не розового цвета.
<em>var</em>
<em> a, b, c : integer;</em>
<em> </em>
<em>begin</em>
<em> write('введите a ');</em>
<em> readln(a);</em>
<em> write('введите b ');</em>
<em> readln(b);</em>
<em> write('введите c ');</em>
<em> readln(c);</em>
<em> writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));</em>
<em>end.</em>
протестировано в PascalABC.Net
Program ex;
type mass=array[1..10] of integer;
var sum, i:integer;
sr:real;
C:mass;
begin
writeln;
write ('Введите 10 элементов массива: ');
for i:=1 to 10 do
read(С[i]);
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+c[i];
end;
sr:=sum/2;
write('Среднее арифметическое=',sr);
<span>end.</span>