Написать алгоритм нахождения суммы положительных среди 10 вводимых.

153

206

Посмотреть ответы 2

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

Сонька766

Информатика

4,8(2 оценок)

Program bifi; var a: array[1..10] of real; s,i: real; begin s: =0; for i: =1 to 10 do begin readln(a[i]); if a[i]> 0 then s: =s+a[i]; end; writeln(s); readln; end.

rekiol544

Информатика

4,6(77 оценок)

Var x,p: array[1..100] of integer; k,n: integer; begin write('введите k: '); readln(k); write('введите массив x(',k,'): '); for k: = 1 to k do read(x[k]); write('массив p: '); n: =0; for k: = 1 to k do if x[k]< 0 then begin n: =n+1; p[n]: =x[k]; end; for k: = 1 to k do if x[k]=0 then begin n: =n+1; p[n]: =x[k]; end; for k: = 1 to k do if x[k]> 0 then begin n: =n+1; p[n]: =x[k]; end; for k: = 1 to k do write(' ',p[k]) end. пример: введите k: 6 введите массив x(6): 3 0 -2 2 4 -3 массив p: -2 -3 0 3 2 4