Регистрация
kraken45
22.03.2022 02:42
Информатика
Есть ответ 👍

Даны 2 числа а и b найти их среднее арефметическое (a+b)/2

139
386
Посмотреть ответы 2

Ответы на вопрос:

xx5
xx5
4,4(34 оценок)

program sr;

uses crt;

var a,b: integer;

s: real;

begin

readln(a);

readln(b);

s: =a+b/2;

write(s);

end.

MishaBor
MishaBor
4,7(97 оценок)
begin var a := ReadArrInteger(ReadInteger('N:')); Println('Сумма положительных:', a.Sum(x->x>0?x:0)); Println('Произведение отрицательных:', a.Product(x->x<0?x:1)); end.

Пример работы:


В массиве из n элементов найти сумму положительных и произведение отрицательных элементов.

Популярно: Информатика