Родились сегодня:
Бойко Елена Сергеевна


Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

313

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

300

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

248


ID: 405049

vsetin

Студент

177


ID: 137394

Megaloman

Мастер-Эксперт

120

Беларусь, Гомель


ID: 226425

Konstantin Shvetski

Модератор

102

Россия, Северодвинск


ID: 325460

CradleA

Мастер-Эксперт

76

Беларусь, Минск


8.9.7

28.07.2021

JS: 2.9.14
CSS: 4.5.14
jQuery: 3.6.0
DataForLocalStorage: 2021-07-31 11:16:20-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200774

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: irina.egorova1998 (Посетитель)
Дата: 01.05.2021, 16:58 Консультация закрыта
Поступило ответов: 0

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Составить программы для решения следующих задач:
1. Дано целое число N и действительные числа A1,A2,...,AN и B1,B2,...,BN. Вычислить
(A1+BN)(A2+BN-1)...(AN+B1)

2. Даны натуральные M, N и матрица действительных чисел размером MxN. Определить номер строки с наибольшим количеством четных элементов.
3. Даны натуральные числа M и N. Найти все меньшие N натуральные числа, квадрат суммы цифр которых равен M.
PascalABCNET. ЛАБОРАТОРНАЯ РАБОТА ПО МАССИВАМ. ЗАРАНЕЕ СПАСИБО :)

Ответов пока не поступило

Мини-форум консультации # 200774

q_id

Зенченко Константин Николаевич

Старший модератор

ID: 31795

1

= общий =    04.05.2021, 09:45
irina.egorova1998:

Код [Pascal]
const
  n=10;
var
  a,b:array[1..n]of real;
  c:real;
  d:integer;
begin
  for d:=1 to n do
    begin
      write('a[',d:2,']:=');
      readln(a[d]);
    end;
  for d:=1 to n do
    begin
      write('b[',d:2,']:=');
      readln(b[d]);
    end;
  c:=1;
  for d:=1 to n do
    c:=c*(a[d]+b[n-d+1]);
  writeln('resulta:=',c)
end.

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

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

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 130

puporev

Профессор

Рейтинг: 48

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0