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

@MDasha · Регистрация: 22.11.2011

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

1)Дан одномерный массив Р[10], элементы которого вводятся с клавиатуры. Посчитать произведение отрицательных элементов массива и их количество. На кран вывести исходный массив, произведение и количество отрицательных элементов массива.

2)Дан одномерный массив D[30], элементы которого формируются по формуле Di=-6(i в квадрате)+96i-1, где i- номер элемента в массиве D. Найти максимальный элемент массива и его номер.

help me please

@Skykota · 23.11.2011, 11:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,pr,kol: integer;
begin
 pr:=1;
 for i:=1 to n do begin
                   write;
                   readln(a[i]);
                  end;
 for i:=1 to n do write(a[i]:3);
 writeln;
 for i:=1 to n do
     if a[i]<0 then begin
                     pr:=pr*a[i];
                     kol:=kol+1;
                    end;
 if kol>0 then begin
                writeln('проиведение=',pr);
                writeln('количество отрицательных=',kol);
               end
          else writeln ('нет отрицательных');
end.

Добавлено через 3 минуты
а во второй задаче мне условие непонятно

@MDasha · 23.11.2011, 11:46 **[ТС]**

он что то не идет у меня
пишет типа надо нажать shift+F9
потом выходит окно как в турбо паскале
и там ничего не написано, пытаюсь вводить числа
и вводишь их до бесконечности, хз че такое

@Konferans · 23.11.2011, 12:59

№2) У меня приведенный код первой задачи работает корректно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
const n=30;
var a:array[1..n] of integer;
i,k,l:integer;
begin
for i:=1 to n do
    a[i]:=-6*sqr(i)+96*i-1;
k:=a[1];
for i:=1 to n do
    if k<a[i] then begin k:=a[i]; l:=i; end;
write('max: ',k,' num: ',l);
end.

@MDasha · 23.11.2011, 16:37 **[ТС]**

Сейчас вот снова попробовала
и выходит внутренняя ошибка компилятора и программа закрывается
не знаю уже что делать((

и во второй задаче пишет ошибка компилятора
мб с самим паскалем что-то??

@Own3D · 23.11.2011, 17:29

Сообщение от MDasha

Сейчас вот снова попробовала
и выходит внутренняя ошибка компилятора и программа закрывается
не знаю уже что делать((

и во второй задаче пишет ошибка компилятора
мб с самим паскалем что-то??

мб они пишут в Pascal ABC, а ты пытаешься запустить в Pascal ABC.NET?

@MDasha · 23.11.2011, 18:31 **[ТС]**

еще бы блок-схемы к этим кодам((

@Konferans · 23.11.2011, 19:50

Держи программу, которая строит блок-схемы по исходному коду с Pascal. Программа проверена, вирусов нет, работает корректно.

@MDasha · 23.11.2011, 20:20 **[ТС]**

Сообщение от Own3D

мб они пишут в Pascal ABC, а ты пытаешься запустить в Pascal ABC.NET?

да, я в авс нет запускаю((
че мне теперь получается паскаль переустановить??
тогда предыдущин работы не будут открываться
вот фак!!

@Own3D · 23.11.2011, 20:21

Сообщение от Konferans

Держи программу, которая строит блок-схемы по исходному коду с Pascal. Программа проверена, вирусов нет, работает корректно.

DiamFC лучше)

Добавлено через 1 минуту

Сообщение от MDasha

да, я в авс нет запускаю((
че мне теперь получается паскаль переустановить??
тогда предыдущин работы не будут открываться
вот фак!!

подправь код под свой паскаль да и все. там небольшая разница.

@MDasha · 23.11.2011, 20:38 **[ТС]**

подправь код под свой паскаль да и все. там небольшая разница.[/QUOTE]

если бы я знала как это сделать, меня бы здесь мне было
хелп ми плиз

@Konferans · 23.11.2011, 20:40

Own3D, глянь мою тему, может мне чего подскажешь с моей проблемой

@MDasha · 23.11.2011, 20:42 **[ТС]**

Сообщение от Own3D

DiamFC лучше)

Добавлено через 1 минуту

подправь код под свой паскаль да и все. там небольшая разница.

если б я знала как((
помоги мне пожалуйста

@Konferans · 23.11.2011, 20:45

MDasha, скачай ABC Pascal да и все

@MDasha · 23.11.2011, 20:50 **[ТС]**

спасибоо

Добавлено через 2 минуты
а если у меня уже установлен авс нет, и если я установлю просто авс они оба будут работать или только последний установленный??

@Own3D · 23.11.2011, 20:55

Сообщение от MDasha

если б я знала как((
помоги мне пожалуйста

1й код у меня в абц.нет работает корректно
вот скрин работы

2ю подправил

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const n=30;
var a:array[1..n] of integer;
i,k,l:integer;
begin
for i:=1 to n do
    begin
        a[i]:=-6*sqr(i)+96*i-1;
        write(a[i]:5);
    end;
k:=a[1];
for i:=1 to n do
    if k<a[i] then begin k:=a[i]; l:=i; end;
writeln;
write('max: ',k,' num: ',l);
writeln;
end.

скрин работы

Добавлено через 2 минуты

а если у меня уже установлен авс нет, и если я установлю просто авс они оба будут работать или только последний установленный??

будут работать обои.

@MDasha · 23.11.2011, 20:55 **[ТС]**

спасибо

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@MDasha 0 / 0 / 1 Регистрация: 22.11.2011 Сообщений: 40

	Посчитать произведение отрицательных элементов массива и их количество. 23.11.2011, 10:57. Показов 5645. Ответов 16 Метки нет (Все метки) 1)Дан одномерный массив Р[10], элементы которого вводятся с клавиатуры. Посчитать произведение отрицательных элементов массива и их количество. На кран вывести исходный массив, произведение и количество отрицательных элементов массива. 2)Дан одномерный массив D[30], элементы которого формируются по формуле Di=-6(i в квадрате)+96i-1, где i- номер элемента в массиве D. Найти максимальный элемент массива и его номер. help me please 0

@MDasha 0 / 0 / 1 Регистрация: 22.11.2011 Сообщений: 40
	23.11.2011, 11:46 [ТС]
	он что то не идет у меня пишет типа надо нажать shift+F9 потом выходит окно как в турбо паскале и там ничего не написано, пытаюсь вводить числа и вводишь их до бесконечности, хз че такое 0

@MDasha 0 / 0 / 1 Регистрация: 22.11.2011 Сообщений: 40
	23.11.2011, 16:37 [ТС]
	Сейчас вот снова попробовала и выходит внутренняя ошибка компилятора и программа закрывается не знаю уже что делать(( и во второй задаче пишет ошибка компилятора мб с самим паскалем что-то?? 0

@MDasha 0 / 0 / 1 Регистрация: 22.11.2011 Сообщений: 40
	23.11.2011, 18:31 [ТС]
	еще бы блок-схемы к этим кодам(( 0

@MDasha 0 / 0 / 1 Регистрация: 22.11.2011 Сообщений: 40
	23.11.2011, 20:38 [ТС]
	подправь код под свой паскаль да и все. там небольшая разница.[/QUOTE] если бы я знала как это сделать, меня бы здесь мне было хелп ми плиз 0

@Konferans 31 / 31 / 9 Регистрация: 23.11.2011 Сообщений: 58
	23.11.2011, 20:40
	Own3D, глянь мою тему, может мне чего подскажешь с моей проблемой 0

@MDasha 0 / 0 / 1 Регистрация: 22.11.2011 Сообщений: 40
	23.11.2011, 20:50 [ТС]
	спасибоо Добавлено через 2 минуты а если у меня уже установлен авс нет, и если я установлю просто авс они оба будут работать или только последний установленный?? 0

@MDasha 0 / 0 / 1 Регистрация: 22.11.2011 Сообщений: 40
	23.11.2011, 20:55 [ТС]
	спасибо 0