|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
16.06.2010, 13:29 | #1 (permalink) |
Новичок
Регистрация: 16.06.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, написать программу.
Написать программу подсчёта произведения всех отрицательных элементов заданного целочисленного массива размером 20 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент. |
16.06.2010, 13:29 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что полезно было бы прочитать содержимое ранее созданных обсуждений Помогите, пожалуйста, написать программу в Turbo Delphi Помогите, пожалуйста, написать интересную программу к зачету Помогите, пожалуйста, написать программу на C# Помогите написать программу Помогите пожалуйста написать программу на VBA для Excel Помогите, пожалуйста, написать программу на Object Pascal |
16.06.2010, 13:49 | #2 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
Код:
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.
__________________
Убить всех человеков! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|