Вычислить количество и сумму положительных элементов массива

@1Тарас1 · Регистрация: 21.01.2013

Author24 — интернет-сервис помощи студентам

сформировать массив из 12 элементов а [i] = 4-i и вывести его на экран. Вычислить количество и сумму положительных элементов массива.

Kodzaev · 27.01.2013, 16:24

Pascal

Var
  a: Array[1..12] of Integer;
  i,s,k: Byte;
BEGIN
Writeln('Массив:');
For i:=1 to 12 do
begin
  a[i]:=4-i;
  Write(a[i]:3);
  If a[i]>0 Then
  begin
    Inc(k);
    s:=s+a[i];
  end;
end;
Writeln;
Writeln('Кол-во положительных = ',k);
Writeln('Сумма положительных = ',s);
Readln
END.

Kodzaev · 27.01.2013, 16:55

Блок-схема

Вычислить количество и сумму положительных элементов массива

Решение

Решение

@1Тарас1 3 / 3 / 0 Регистрация: 21.01.2013 Сообщений: 70
		1
	Вычислить количество и сумму положительных элементов массива 27.01.2013, 16:18. Показов 1027. Ответов 2 Метки нет (Все метки) сформировать массив из 12 элементов а [i] = 4-i и вывести его на экран. Вычислить количество и сумму положительных элементов массива. Миниатюры 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	27.01.2013, 16:55	3
	Сообщение было отмечено Памирыч как решение Решение Блок-схема Миниатюры 1