Вика (23:26:11 13/11/2006)
помоги написать прогу ....надой найти сумму отрицательных элементов в массиве...
Vampire (23:27:27 14/11/2006)
Ок!
Vampire (23:49:51 13/11/2006)
program poisk;
uses
crt;
const
nmax=10;
var
n,j, ser: integer;
a: array[1..nmax] of real;
sumotr: real;
begin
clrscr;
{представление программы}
writeln('поиск ');
{ввод}
repeat
write('введите число элементов ');
readln(n);
if (n<1) or (n>nmax) then
writeln('ошибка');
{end if}
until (n>=1) and (n<=nmax);
for j:=1 to n do begin
write('введите',j,'-й элемент ');
readln(a[j]);
end; {for}
{поиск решения}
sumotr:=0;
for j:=1 to n do
if a[j]<0 then
sumotr:=a[j]+sumotr;
{end if}
{end if}
{end for}
{вывод результата}
writeln('Результат равен', sumotr:8:1);
end.
прошло время
Вика (00:03:27 14/11/2006)
Паш,ща те мой одноклассник напишет,по поводу проги
Вика (00:03:35 14/11/2006)
ответь ему,плиз,он мне помогает
он пишет....
Vampire (00:03:57 14/11/2006)
?
Ayreon (00:04:03 14/11/2006)
Привет
Ayreon (00:04:52 14/11/2006)
Ты можешь тот код ппрограммы,который ты Вике присылал написать более понятнее и без наворот?
Vampire (00:07:50 14/11/2006)
а че там непонятно? Задаем массив чисел...с клавы...сначало число элементов массива...потом сами элементы...потом прога считает и выводит
Ayreon (00:04:52 14/11/2006)
все ясно...вот такие программеры учаться в Бауманке...
Отредактировано V@mpire (2006-11-14 00:44:46)
