Опубликовано 5 лет назад по предмету Информатика от eniks77

составить программу,определяющую сумму положительных элементов одномерного массива B,состоящего из 14 вещественных значений

Ответ

Ответ дан fedrfedr

var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.
1. Ответ
  
  Ответ дан eniks77
  
  Спасибо,но поздно
2. Ответ
  
  Ответ дан fedrfedr
  
  Обидно, прошло всего 13 минут, быстрее у меня пальцы не двигаются. Нужно предельно время писать, после которого вопрос становится не актуальным

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают