Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу

@Future KIP · Регистрация: 03.12.2012

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

Условие: Посчитать Сумму отрицательных элементов кратных заданному числу.
Сделать нужно задачу в подпрограммах
Есть ПП ввода и вывода элементов массива, вычисление их суммы. Как сделать эти ПП не понимаю)
Буду рад любой помощи)

@orange_rush · 04.12.2012, 16:09

смотри, можно через процедуру:

Pascal

const n=20;
type mas=array [1..n] of integer;
var a: mas; i,k: integer;
{подпрограмма}
procedure Uslovie1 (b: mas; j: integer);
{эти переменные внутри подпрограммы и не влияют на внешние}
var i: integer;
begin
    for i:=1 to n do
                        if b[i]<0 then
                if b[i]mod j=0 then write(b[i]:4);
 
end;
BEGIN {главная программа}
        writeln('vvedite chislo k');
        readln(k);
        writeln('ishodny massiv: ');
        for i:=1 to n do begin
                a[i]:=random(101)-50;
                write (a[i]:4);
        end;
        writeln;
        write('4isla kratnie k: ');
        Uslovie1(a,k);
        readln;
END.

@Future KIP · 04.12.2012, 17:43 **[ТС]**

Спасибо большое, будем пробовать))

Комментарий модератора

Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@Future KIP 0 / 0 / 0 Регистрация: 03.12.2012 Сообщений: 6
		1
	Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу 04.12.2012, 14:49. Показов 1575. Ответов 2 Метки нет (Все метки) Условие: Посчитать Сумму отрицательных элементов кратных заданному числу. Сделать нужно задачу в подпрограммах Есть ПП ввода и вывода элементов массива, вычисление их суммы. Как сделать эти ПП не понимаю) Буду рад любой помощи) 0

	04.12.2012, 17:43

Опции темы

Одномерный массив. Посчитать Сумму отрицательных элементов кратных заданному числу

Решение