Консультация № 200774
01.05.2021, 16:58
0.00 руб.
0 1 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. ЛАБОРАТОРНАЯ РАБОТА ПО МАССИВАМ. ЗАРАНЕЕ СПАСИБО :)

Обсуждение

давно
Старший Модератор
31795
6196
04.05.2021, 09:45
общий
Адресаты:
[code lang=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.[/code]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа