Предмет: Информатика,
автор: zotzot49
Написать программу Pascal
Написать программу, которая находит произведение элементов массива
натуральных чисел из 15 элементов, заданного случайным образом.
Ответы
Автор ответа:
1
Ответ:
PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1 или выше
begin
var A := ArrRandom(15, 0, 99);
A.Aggregate(BigInteger.One, (p, q) -> p * q).Println;
end.
Объяснение:
zotzot49:
Учитель говорит не правильно(
Версия компилятора?
Я точно не знаю
Но вот правильный ответ : Program example_1;
var t: array[1..7] of integer;
s:integer; r: byte;
begin
writeln('Введите семь чисел');
for r:=1 to 7 do
read(t[r]);
s:=0;
for r:=1 to 7 do
begin
if t[r]<4 then s:=s+t[r];
end;
writeln('Сумма чисел масива меньшая 4 = ',s);
end.
var t: array[1..7] of integer;
s:integer; r: byte;
begin
writeln('Введите семь чисел');
for r:=1 to 7 do
read(t[r]);
s:=0;
for r:=1 to 7 do
begin
if t[r]<4 then s:=s+t[r];
end;
writeln('Сумма чисел масива меньшая 4 = ',s);
end.
То задание, которое ты запостил, было про произведение массива из 15 элементов, что я и сделал. А не про сумму меньших 4. И да, твоя версия устарела 10 лет назад. Сейчас это можно сделать так
begin
ReadArrInteger(7).Where(p -> p < 4).Sum.Println;
end.
begin
ReadArrInteger(7).Where(p -> p < 4).Sum.Println;
end.
Похожие вопросы
Предмет: Русский язык,
автор: Артимида0254
Предмет: Українська література,
автор: lexa2109
Предмет: Другие предметы,
автор: AlinaOkovitaya
Предмет: Математика,
автор: qq8758
Предмет: История,
автор: Аноним