Паскаль , помогите

Форум » Решение задач на халяву » Паскаль , помогите » Ответить

Паскаль , помогите

romaz: 1. Составьте блок-схему алгоритма и программу вычисления в массиве суммы всех чисел, кратных 5. 2. Составьте программу вычисления в массиве суммы положительных элементов. 3. Составьте программу вычисления среднего арифметического отрицательных элементов.

Ответов - 1

studprog: 1. Рисовать не умею 2. [pre2]CONST N=10; TYPE tElement = Integer; tArray = array [1..N] of tElement; VAR A : tArray; PROCEDURE Input(var A:tArray); Var j:Integer; Begin Randomize; for j:=1 to N do A[j]:=Random(10)-5 End; PROCEDURE Output(var A:tArray); Var j:Integer; Begin for j:=1 to N do Write(A[j],' '); WriteLn End; FUNCTION GetSum(var A:tArray):tElement; Var Sum:tElement; j:Integer; Begin Sum:=0; for j:=1 to N do if A[j]>0 then Sum:=Sum+A[j]; GetSum:=Sum; End; BEGIN Input(A); Output(A); WriteLn(GetSum(A)) END.[/pre2] 3. Могу сделать за 500 руб. или 20 ссылок на этот форум.

полная версия страницы