Регистрация
sofi200703
03.03.2023 22:25
Информатика
Есть ответ 👍

Напишите команды для чертежника, что бы сделать это

134
363
Посмотреть ответы 1

Ответы на вопрос:

sashabayanov
sashabayanov
4,5(18 оценок)
Uses   crt; var   i,n: integer;   a,s: real; begin   writeln('вычисление среднего арифметического');   writeln('последовательности действительных чисел');   write('введите количество чисел последовательности -> ');   readln(n);   writeln('введите последовательность. после ввода каждого числа нажмите enter');   s: =0;   for i: =1 to n do   begin       read(a);       s: =s+a   end;   writeln('среднее арифметическое введенной последовательности: ',s/n);   write('для завершения работы программы нажмите enter');   readkey end. тестовое решение: вычисление среднего арифметического последовательности действительных чисел введите количество чисел последовательности -> 5 введите последовательность. после ввода каждого числа нажмите enter 5.4 7.8 3.0 1.5 2.3 среднее арифметическое введенной последовательности: 4 для завершения работы программы нажмите enter для версии pascal.abc.net: var   i,n: integer;   a,s: real; begin   writeln('вычисление среднего арифметического');   writeln('последовательности действительных чисел');   write('введите количество чисел последовательности -> ');   readln(n);   writeln('введите последовательность. после ввода каждого числа нажмите enter');   s: =0;   for i: =1 to n do   begin       read(a);       s: =s+a   end;   writeln('среднее арифметическое введенной последовательности: ',s/n) end.  

Популярно: Информатика