1 Тема від shr4529

  • shr4529
  • Користувач
  • Поза форумом
  • Дата реєстрації: 18.12.2012
  • Повідомлень: 3
    • Репутація: 0

Тема: Розрахунок негативних елементів масиву

1. Написати програму по розрахунку суми елементів масиву. Вивести результат на екран.
2. Написати програму по розрахунку кількості негативних елементів в масиві.
дано:                       A:  array [-1..30] of real;

2 Відповідь від Replace

  • Replace
  • Replace Team
  • Поза форумом
  • Звідки: Київ
  • Дата реєстрації: 06.04.2012
  • Повідомлень: 2 895
    • Репутація: 2107

Re: Розрахунок негативних елементів масиву

program lab;
const N=30;
var A:array[1..N] of real;
i,k:integer;
S:real;
begin

writeln('Введіть елементи масиву:');
for i := 1 to N do
    read(A[i]);    

k := 0;
S := 0;
for i := 1 to N do
begin
    if A[i] < 0 then
        inc(k);
    S := S + A[i];
end;    

writeln('Сума елементів масиву: ', S:2:2);
writeln('Кількість від''ємних елементів елементів: ', k);


end.

Replace вебсайт