легче некуда

[33artem]

да эт фигня задача я ее вроде уже сделал
а вот это уже посерьезнее
задание такое.
составить программу вычисления функции.

Z=(C-S1-S2)(K1+K2)/2+K1+K2
где S1 - среднее арифметическое заданного числового массива;
K1 -количество отрицательных элементов в нем;
S2 и K2 - соответствующие велечины для второго массива.
для вычесления Si и Ki использовать подпрограмму SUBROUTINE

[Siluet]

Сообщение от 33artem

странно я в вожу 55555 и мне выводит сумма = 0

у меня 125 выходит.. утебя с Паскалем может чета не то ?

[Siluet]

Сообщение от 33artem

составить программу вычисления функции.

Z=(C-S1-S2)(K1+K2)/2+K1+K2
где S1 - среднее арифметическое заданного числового массива;
K1 -количество отрицательных элементов в нем;
S2 и K2 - соответствующие велечины для второго массива.
для вычесления Si и Ki использовать подпрограмму SUBROUTINE

тут я бессилен (((((

[33artem]

скорей всего паскаль тупит лан спосиб те

[Siluet]

обращайся

[__STDC__]

Сообщение от 33artem

Z=(C-S1-S2)(K1+K2)/2+K1+K2
где S1 - среднее арифметическое заданного числового массива;
K1 -количество отрицательных элементов в нем;
S2 и K2 - соответствующие велечины для второго массива.
для вычесления Si и Ki использовать подпрограмму SUBROUTINE

я делал такую же задачу уже... пользуйтесь поиском..

[33artem]

точно спасибо

[33artem]

STDC а ты эту решал ?
Данна матрица в каждом столбце произвести следующие действия
а) если 1 элемент каждого столбца отрицательный то возвести в квадрат все элементы этого столбца
б) если 1 элемент столбца больше 0 возвести все элементы в куб
в) если 1 элемент равен 0 все элементы столбца оставить без изменения

если нет то не решай и так уже помог мне =)

[__STDC__]

Сообщение от 33artem

STDC а ты эту решал ?
Данна матрица в каждом столбце произвести следующие действия
а) если 1 элемент каждого столбца отрицательный то возвести в квадрат все элементы этого столбца
б) если 1 элемент столбца больше 0 возвести все элементы в куб
в) если 1 элемент равен 0 все элементы столбца оставить без изменения

а в чем тут проблема??

	for j:=1 to n do 
		if (x[1,j] < 0) then
			for i:=1 to n do
				x[i,j] := x[i,j]*x[i,j]
		else if (x[1,j] > 0) then
			for i:=1 to n do
				x[i,j] := x[i,j]*x[i,j]*x[i,j];

что-то вроде такого..

[33artem]

а можно спросить де ты учишся и на каком курсе ? если не хочеш отвечать не отвечай ведь конфиденциальная информация и нужна чтоб о ней ни кто не че не знал