Const n = 5; var a: array [1..n] of byte; s, k: longint; b: byte; begin k : = 1; for b : = 1 to n do begin a[b] : = random(1, 11); write(a[b]: 3); end; writeln(); for b : = 1 to n do if (a[b] mod 2 = 1) then s : = s + a[b] else k : = k * a[b]; for b : = 1 to n do writeln(s, ' ', k); end.
tatianaesipenko
15.05.2020
//как- то так: ) проверял так: 5 1 1 5 7 9 => 7 #include "stdafx.h" #include < iostream> using namespace std; int _tmain(int argc, _tchar* argv[]) { double s, k; s = 0; int n; cout < < "n = "; cin > > n; for (int i = 1; i < = n; i++) { cin > > k; if (k < = n) s += k; } cout < < "> " < < s < < " < " < < endl; system("pause"); return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Нужно сделать по информатике: введите с клавиатуры 6 чисел и найдите среднее арифметическое.оператор с постусловием, желательно ещё блок схемы.
ну вот так вот как-