Вычислить сумму частей числового массива nbsp;nbsp;A = (a1 , a2 ,

Выполнение метода

Блок-схема

Turbo Pascal

Program Summa;

nbsp;nbsp;Uses Crt;

nbsp;nbsp;Type Mas = Array [1..20] of Real;

nbsp;nbsp;Var A nbsp; : Mas;

nbsp;nbsp;i, N : Integer;

nbsp;nbsp;S nbsp; : Real;

BEGIN

nbsp;nbsp;ClrScr; nbsp; чисткаnbsp;экранаnbsp;

nbsp;nbsp;Write(Введитеnbsp;N = );

nbsp;nbsp;ReadLn(N); вводnbsp;значенияnbsp;N

nbsp;nbsp;For i := 1 to N dо цикл по элементам массива

nbsp;nbsp;begin

nbsp;nbsp;Write(A [ , i , ] = );

nbsp;nbsp;ReadLn(A[i]) ввод частей массива

nbsp;nbsp;end;

nbsp;nbsp;S := 0; присваивание исходного значения

nbsp;nbsp;For i := 1 to N do S := S+A[i]; суммирование

nbsp;nbsp;WriteLn;

nbsp;nbsp;WriteLn(Суммаnbsp;одинаковаnbsp;, S : 5 : 1);

nbsp;nbsp;ReadLn

END.