Помогите решить задачки.

@cjcezar · Регистрация: 17.10.2011

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

Помогите решить...

1. Дан одномерный вещественный массив А (N) . Определить сумму отрицательных элементов этого массива.

2. Дан одномерный целочисленный А(N) . Определить произведение четных по значению элементов этого массива.

3. Дан одномерный целочисленный массив А(N) . Определить среднее арифметическое значение элементов этого массива кратных пяти

Добавлено через 46 минут
Очень очень буду благодарен..

Добавлено через 1 час 2 минуты
хотя бы одну-две, если не трудно...

Добавлено через 1 час 1 минуту
Вторая правильно?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program pas;
 uses crt;
 const
 N=10;
 var
 A:array[1..N] of integer;
 i,pr:integer;
 begin
 clrscr;
 pr:=1;
 for i:=1 to N do
 begin
 writeln('введите число');
 readln(A[i]);
 end;
 for i:=1 to N do 
 begin
 if i mod 2=0 then
 pr:=pr*A[i];
 end;
 writeln('произведение=',pr);
 readln;
end.

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Pascal следует выделить этот код и на панели редактирования сообщения нажать кнопку: "PASCAL".

@TAVulator · 23.10.2011, 22:24

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

Вторая правильно?

нет..

@Mawrat · 24.10.2011, 09:10

cjcezar, замени:

Pascal
1
if i mod 2=0 then

на:

Pascal
1
if A[i] mod 2 = 0 then

@Artorios · 24.10.2011, 14:01

Первая задачка:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program otr;
Uses crt;
Var A:array[1..100]of real;
    S:real;
    i,n:integer;
Begin
  Write('Введите N ');
  readLn(n);
  randomize;
  for i:=1 to N do
  begin
    A[i]:=random(100)-50;
    Write(A[i]:3:1,' ');
  end;
  s:=0;
  for i:=1 to N do
  if A[i]<0 then
    s:=s+A[i];
  WriteLn;
  WriteLn('Ответ: ',S);
  readLn;
end.

Добавлено через 57 минут
Задача 3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Program otr;
Uses crt;
Var A:array[1..100]of integer;
    s:real;
    i,n,j:integer;
Begin
  Write('Введите N ');
  readLn(n);
  randomize;
  for i:=1 to N do
  begin
    A[i]:=random(10);//-50;
    Write(A[i]:3,' ');
  end;
  j:=0;
  WriteLn;
  WriteLn('Числа,кратные 5: ');
  for i:=1 to N do
  if A[i] mod 5=0 then
  begin
    j:=j+1;
    S:=S+A[i];
    Write(A[i]:3,' ');
  end;
  WriteLn;
  if j<>0 then
  begin
    S:=S/j;
    WriteLn('Ответ: ',S:5:3);
  end  else
    WriteLn('Нет чисел,кратных 5 ');
  readLn;
end.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем