Begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b);
if (a<0) and (b<0) then Begin a:=a+2; b:=b+2; writeln('a = ',a); writeln('b = ',b); end else if (a>0) and (b<0) then writeln('a*b = ',a*b) else if (a<0) and (b>0) then writeln('b-a = ', b-a)
//PascalABC //NaaMan var N, sum, num, i : integer; A : array[1..10000] of integer; SA : real; begin write('Укажите, сколько будет чисел > '); readln(N); write('Вводите элементы массива > '); // Обнуляем сумму sum := 0; // и количество искомых элементов num := 0; // Ввод элементов массива с одновременным подсчетом for i := 1 to N do begin // Ввод readln(A[i]); write('Ещё > '); // Если введённое нечётное, то if A[i] mod 2 = 1 then begin // добавляем к сумме sum := sum + A[i]; // и считаем их количество num := num + 1; end; // Это среднее арифметическое SA := sum / num; end;
writeln('Сумма элементов ', sum); writeln('Среднее арифметическое ', SA); end.
uses crt;
var a,b:real;
Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a<0) and (b<0)
then
Begin
a:=a+2;
b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
end
else
if (a>0) and (b<0)
then
writeln('a*b = ',a*b)
else
if (a<0) and (b>0)
then
writeln('b-a = ', b-a)
else writeln('Ни одно условие не выполняется');
readln;
end.
//NaaMan
var
N, sum, num, i : integer;
A : array[1..10000] of integer;
SA : real;
begin
write('Укажите, сколько будет чисел > ');
readln(N);
write('Вводите элементы массива > ');
// Обнуляем сумму
sum := 0;
// и количество искомых элементов
num := 0;
// Ввод элементов массива с одновременным подсчетом
for i := 1 to N do begin
// Ввод
readln(A[i]);
write('Ещё > ');
// Если введённое нечётное, то
if A[i] mod 2 = 1 then begin
// добавляем к сумме
sum := sum + A[i];
// и считаем их количество
num := num + 1;
end;
// Это среднее арифметическое
SA := sum / num;
end;
writeln('Сумма элементов ', sum);
writeln('Среднее арифметическое ', SA);
end.