Const
n = 7;
var a: array [1..n] of integer; i, m0, m1: integer;
begin
m0:=0; m1:=0;
writeln('Массив -->');
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do begin
m0:=m0+a[i];
if a[i] mod 2 = 0 then m1:= m1+a[i];
end;
writeln('Cумма четных элементов массива: ',m1);
writeln('Cреднее арифметическое всех элементов массива: ',m0/n);
end.
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x:=ReadReal('X =');
Writeln('Y = ', x>=0 ? 7*x - 3:2*x*x*x);
end.
2)
begin
var a:=ReadReal('Результат первого участника равен');
var b:=ReadReal('Результат второго участника равен');
var c:=ReadReal('Результат третьего участника равен');
Writeln('Лучший результат: ', min(min(a,b), c));
end.
3)
begin
var b:= ReadReal('b =');
Writeln(b > 3? b-5:b*2);
end.
<h2>Ошибка</h2>
Знак "больше или равно" пишется в том же порядке, что и читается
Сначала знак больше потом равно
" >= "
<h2>Исправление ошибки</h2>
Заменить 16 строку " if(D=>0) then "
На " if(D>=0) then "
Формальный язык это тот язык который изучают(ноты,английский,Дорожные знаки,С++, и т.д.
Глаза воспринимают световые сигналы, которые обрабатывает его <u>мозг</u>, преобразуя световые <u>сигналы</u> в <u>картинки.</u>