Напишите программу, которая в последовательности целых - вопрос №1558366 от Sn1KeRS2 16.02.2021 04:51

Question

Информатика: Напишите программу, которая в последовательности целых чисел находит среднее арифметическое чисел, кратных 9, или сообщает, что таких чисел нет. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). количество чисел не превышает 100. введённые числа по модулю не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 9, или вывести no,

Sn1KeRS2 · Answer

var  a, i, count, s: integer;begin  repeat    if(i = 100) then break;    readln(a);    if(abs(a) 300) then begin      writeln( Число по модулю не может быть 300. );      continue    end    else if(a mod 9 = 0) and (a 0) then begin      inc(count);      s := s + a;    end;    if(a 0) then inc(i);  until(a = 0);  writeln( Среднее арифметическое: , s / count);end....