// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var b:=ReadArrReal('Введите 7 чисел:',7);
// Первая задача
Writeln('Их произведение равно ',
b.Aggregate(1.0,(x,y)->x*y));
// Вторая задача
b.Select(x->x>0?x*x*x:x).Println
end.
<u><em>Тестовое решение:</em></u>
Введите 7 чисел: 3 -5 2 4 -2 -3 1
Их произведение равно -720
27 -5 8 64 -2 -3 1
Готово.......................
Потому, что оно представляет больший набор опций/настроек/контекста, нежели его заглавие.
Задача №1var a,b,c:real;begina:=40;b:= 10;b:= a/2 *b;if a < b then c:= b -aelsec:= a - 2*b;writeln('c =', c);end.Задача №2var a,b,c:integer;begina:=5;a:= a +6;b:= -a;c:= a- 2*b;writeln('c =', c);end.
Program t;
varn, x, i, s, k:integer;
a:array [0..20] of integer; {20 =это максимальное количество домов .Вместо 20 поставь любое число}
begin
write('Введите количество домов на улице : ');
read(n);
for i:=1 to n do
begin
write('Введите количество жителей в ', i, ' -м доме : ');
read(a[i]);
end;
for i:=1 to n do
if i mod 2=0 then s:=a[i]+s; {Считаем жителей правых}
for i:=1 to n do
if i mod 2=1 then k:=a[i]+k;{Считаем жителей левых}
if s>k then write('Разница между домами ', k-s );
if s<k then write('Разница между домами ', s-k );
end.
Введите количество домов на улице : 3
Введите количество жителей в 1 -м доме : 3
Введите количество жителей в 2 -м доме : 1
Введите количество жителей в 3 -м доме : 4
Разница между домами -6
Писал на Версии 3.3
Скобки это комментарии,их можно убрать