Предмет:
Другие предметыАвтор:
анонимprogram zz1;const n = 13; // задаем количество элементов в массивеR:array [1..n] of integer=( 26, -53, 0, -67, 12, -34, 0, 90, 14, -78, 0, -45, 66 ); // задаем последовательность чиселvar i, k, m:integer; // задаем переменные целого типаbeginfor i:=1 to n do // организуем цикл, в котором переберем все элементы массиваbeginif R[i] < 0 then k:=k + 1; // проверяем, если элемент отрицательный, то считаем егоif R[i] > 0 then m:=m + R[i]; // проверяем, если элемент положительный, то добавляем элемент в суммуend;writeln( \' количество отрицательных = \', k); // выводим ответwriteln( \' сумма положительных = \', m); writeln( \' среднее значение = \', m/13); end.
Автор:
pecanДобавить свой ответ
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть
Здравствуйте, помогите пожалуйста. напишите эссе на тему "Как, на Ваш взгляд, можно заинтересовать школьников заниматься наукой. В чём проблема низкой степени интереса школьников к науке?" очень срочно!!!!
Предмет:
ЛитератураАвтор:
Emm04ka_banditОтветов:
Смотреть
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть
Предмет:
Другие предметыАвтор:
анонимОтветов:
Смотреть