Теперь Кью работает в режиме чтения

Мы сохранили весь контент, но добавить что-то новое уже нельзя

задан массив из 10 элементов посчитать число и сумму положительных элементов в нем, вывести исходный и полученный массивы,в паскале

Программирование
Cold32
  · 2,2 K
На Кью задали 1 похожий вопрос
Маковкина А.
29 мая 2019

Алгоритм составления массива из 10 элементов:

  1. Заполняем массив, учитываем имя переменной sum=0.

  2. Используем значок For.С помощью него мы посмотрим на каждый элемент массива.

  3. Кнопка if поможет нам узнать, имеет ли наш массив положительную величину.

  4. Если третий пункт выполняется, то добавим значение массива к sum

  5. Выводим sum.

  6. Теперь мы видим сумму, которая как раз и будет обозначать сумму положительных элементов.

В нашем случае она равна пяти.

Будем З.
Знаю не много, ни мало.  · 29 мая 2019
1. var 2.  i, kp, kn, s: Integer; 3.  p: Real; 4. ... 5.   p:=1; 6. for i:=1 to n do begin 7. if a[i]>0 then begin Inc(kp); s:=s+a[i]; end; 8. if a[i]<0 then begin Inc(kn); p:=p*a[i]; end; 9. end; 10. WriteLn('kp=',kp,' sp=',s,' kn=',kn,' pn=',p:0:0); 11. end. как то так Читать далее
1 эксперт согласен
1 ответ скрыт(Почему?)
Ответы на похожие вопросы
задан массив из 10 элементов посчитать число и сумму положительных элементов в нем, вывести исходный и полученный массивы,в паскале? — 1 ответ, задан 
Первый
Артём Филиппов
эксперт  · 30 янв 2021

Program n1;

var a: array[1..10] of integer;

S,i,k: integer;

begin

randomize;

write('массив: ');

S:=0;

k:=0;

for i:=1 to 10 do

begin

a[i]:=random(101);

write(a[i],' ');

end;

writeln;

write('сумма a[i]>50: ');

for i:=1 to 10 do if a[i]>50 then

begin

k:=k+1;

S:=S+a[i];

end;

writeln(S);

write('кол-во: ', k);

end.