Регистрация
djnf
08.01.2021 23:19
Экономика
Есть ответ 👍

Определить длительность производственного процесса при смешанном виде движения деталей ​

152
256
Посмотреть ответы 1

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

Pidoraser
Pidoraser
4,6(69 оценок)
{правильная программа, кол-во элементов вводится с клавиатуры } program summa; uses crt; type a1= array of integer; var a: a1; m,s,n: integer; procedure input; const p=1; const q=20; var i: integer; begin randomize; begin for i: =0 to n-1 do a[i]: =random(q-p+1)+p; write('a[',i,']='); readln(a[i]); end; end; procedure print; var i: integer; begin write('массив целых чисел а: '); for i: =0 to n-1 do write(' ',a[i]); writeln; writeln; end; procedure sum( m: integer); var i: integer; begin s: =0; for i: =0 to m-1 do s: =s+a[i]; end; begin clrscr; write('введите кол-во элементов в массиве: '); readln(n); setlength(a, n); input; clrscr; print; write('сколько элементов суммировать: '); readln(m); sum(m); writeln; writeln('сумма ',m,' элементов равна: ', s); sum(n); writeln; writeln('сумма всех ',n,' элементов массива равна: ', s); writeln ('среднее арифмитическое всех элементов равно ', s/n); readkey; end.

Популярно: Экономика