Помогите пожалуйста! Срочно надо! Кто понимает в Паскале? Написать программу…

Question

49

Помогите пожалуйста! Срочно надо! Кто понимает в Паскале? Написать программу которая вычисляет сумму только положительныхчисел

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

revrite · Accepted Answer

67

revrite

18 февраля 2024

program summa; var s: real; i: integer; var a: array[1… 10] of real; begin for i: =1 to 10 do begin writeln ('vvedite- a[',i,']'); readln (a[i]); end; s: =0; for i: =1 to 10 doif a[i]>0 thens: =s+a[i]; writeln ('s=',s); end. Если в массиве 10 элементов, то так

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: