Помогите, пожалуйста, написать программу.

Liya Opium · 16.06.2010, 13:29

Помогите, пожалуйста.

Написать программу подсчёта произведения всех отрицательных элементов заданного целочисленного массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.

AlexZir · 16.06.2010, 13:49

Цитата:

Написать программу подсчёта произведения всех отрицательных элементов заданного целочисленного массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.

Код:

uses crt;
const n=20;
var a: array[1..n] of integer;
     i:integer;
    p:longint;
begin
randomize;
p:=1;
for i:=1 to n do begin
a[i]:=random(100)-60;
if a[i]<0 then p:=p*a[i];
writeln('a[',i,']=',a[i]);
end;
writeln;
writeln('as a result of calculations obtained product equal ',p);
readln;
end.

В следующий раз создавайте новую тему, иначе вам помощь могут и не оказать, да и описывать в чужих темах свои проблемы - некрасиво.

16.06.2010, 13:29	#1 (permalink)
Liya Opium Новичок Регистрация: 16.06.2010 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, написать программу. Помогите, пожалуйста. Написать программу подсчёта произведения всех отрицательных элементов заданного целочисленного массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070