10 класс напишите программу в паскале, которая - вопрос №703267210 от basarbakhtiar 14.05.2022 09:06

Question

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

basarbakhtiar · Answer

Program n1;const n=100;var a: array [1..n] of integer;i,sum,k: integer;beginfor i:=1 to n dobeginwrite( введите ,i, элемент: );readln(a[i]);if (a[i]=0) or (a[i] 300) then break;if (a[i] =300) and (a[i] 99) thenbegink:=k+1;sum:=sum+a[i];end;end;if k 0 then writeln( ср. ариф: ,sum/k)else writeln( no );end....