Можно сделать в формате cout << "Введите номер нужно программы"; if(number==1){выполняется код первой программы (ввод, вывод)}
Если номер = 2, выполняется код второй программы, три - третей. Т.е. каждая программа отдельно в зависимости от выбора пользователем.
Или же сразу через cin вводишь все переменные, потом считаешь s1,s2,s3 и выводишь их.
Const
N = 30;
Var
a: array [1..N] of integer;
MaxEv, MaxOdd, I: integer;
begin
for i := 1 to N do
begin
write('a[', i , '] = ');
readln(a[i]);
end;
MaxEv := 0;
MaxOdd := 0;
For I := 1 to N do { перебираем все элементы массива}
if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}
begin
if a[i] > MaxEv then {если да, то проверяем больше ли найденного до этого наибольшего четного}
MaxEv := a[i]; {присваиваем новое наибольшее четное значение}
end
else
if a[i] > MaxOdd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}
MaxOdd := a[i]; {присваиваем новое наибольшее нечетное значение}
Writeln ('MaxEv - MaxOdd = ', MaxEv, ' - ', MaxOdd, ' = ', MaxEv - MaxOdd);
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=MatrRandom(8,5,-99,99); c.Println(4); Writeln(4*c.ColCount*'-');
c.SwapCols(2,4);
Writeln('*** Результат ***'); c.Println(4)
end.
Пишу на JavaScript:
var summ = 0;
var i;
for (i = 0; i < 20; i++) {
summ += i;
}
document.write(summ + "<br>");
var medium = summ / 2;
document.write(medium);
Поясниваю:
идет цикл от 0 до 20 (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19)
а в переменную summ через цикл с переменной i мы добавляем все ети числа:)
ps
если хочеш чтобы и число 20 засчиталося сделай так:
i <= 20:)
отже виводиться сума і відразу середнє