<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
ну в метро, или если ты турист то картой, не?
Что значит логическая модель я не знаю, но могу сказать что, 1место Россия. 2 место Китай. 3 место украина. 4 место германия. 5 место Италия. Это все точно правильно. мы решаем с помощью таблицы и ставим там + и - может это и есть логическая модель, я не згаю, но кто на каком месте решила.
//1
var
A: array [1..10] of integer;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(81)-40;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if i mod 2 = 0 then A[i] := sqr(A[i])
else A[i] := sqr(i);
write(A[i], ' ');
end;
end.
//2
var
A: array [1..10] of real;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(41)-20;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if A[i] < 0 then A[i] := sqr(A[i]);
if A[i] > 0 then A[i] := sqrt(A[i]);
write(A[i]:0:2, ' ');
end;
end.
//3
var
A: array [1..200] of real;
i, N: byte;
sum: real;
begin
write('Введите N = ');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('З/П за ', i ,' месяц = ');
readln(A[i]);
sum := sum + A[i];
end;
writeln('Общий доход = ', sum:0:2);
end.
1) ответ 0
div - целочисленное деление, выдает целую часть после деления
126 div 10 = 12
mod - выдает остаток от деления
12 на 4 делится без остатка поэтому
12 mod 4 = 0
2) ответ 2, 3 и 4 пункты
div - целочисленное деление, выдает целую часть после деления
так что 15 делить на 15 будет 1
в остальных пунктах при делении будет число меньше 1 и оно обрежется до 0