Опубликовано 5 лет назад по предмету Информатика от uliabogdan797

40 баллов! Написать программу в паскаль!

Ответ

Ответ дан petyaGavrikov

const n=6;
var a:array[1..n] of integer;
i,p:integer;
begin
writeln('Введите 6 элементов массива:');
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
writeln('p = ',p);
end.

Пример:
Введите 6 элементов массива:
5 -8 3 -4 7 -1
p = -32
1. Ответ
  
  Ответ дан uliabogdan797
  
  Большое спасибо! А можете, пожалуйста, написать еще три программы: https://znanija.com/task/21899336? 85 баллов
Ответ

Ответ дан Аккаунт удален

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadArrReal('Вводите массив:',6);
Writeln('П=',a.Where(x->x<0).Aggregate(1.0,(x,y)->x*y))
end.

Пример
Вводите массив: 5 -8 3 -4.5 7 -1.15
П=-41.4

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.