Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.
Ввести массив
проверяет условие и выводит количество чисел:
<span>for i:=1 to 12 <span>do
</span></span>k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.
Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
1.Запустить Power Point
2.Выбрать тему.
3.Кликнуть по "Создать"
4.В разделе "Главная" кликнуть по "Создать слайд" и выбрать сравнение.
5.В разделе "Файл" кликаем по "Сохранить как" и сохраняем.
Блок-схема - в прилагаемом файле.
Тестовый пример:
А = 10
5, -2, 6, -4, 7
Среднее арифметическое = (5-2+6-4+7)/5 = 12/5 = 2,4
PS. Возможно зацикливание (это зависит от вводимых чисел).