Паскаль помогите пожалуйста
Тип данных Массив от 1 до 10 с элементами типа Integer создать алгоритм который вычеслит произведение парных чисел
Ответы на вопрос
Ответил Yegor55
0
var
a: array [1..10] of Integer;
i, p : Integer;
begin
for i := 1 to 10 do
begin
Write('a[', i, '] = ');
Readln(a[i]);
end;
for i := 1 to 10 do
if a[i] mod 2 = 0 then p := p * a[i];
Writeln(p);
end.
a: array [1..10] of Integer;
i, p : Integer;
begin
for i := 1 to 10 do
begin
Write('a[', i, '] = ');
Readln(a[i]);
end;
for i := 1 to 10 do
if a[i] mod 2 = 0 then p := p * a[i];
Writeln(p);
end.
Ответил ribka1488
0
А что ты вводил?
Ответил Yegor55
0
Рандомные цифры
Ответил Aleks1397
0
программа написана правильно чё ты придираешься, после end; поставь p:=1;, извините просто столько уведомлений от вас
Ответил ribka1488
0
Всё нормально у меня не получалось извините я новичок......
Ответил walleri1
0
Program Bi3;
var
a:integer;
pr:integer;
i:integer;
begin
a[0]:=0;
pr:=1;
writeln('Введите ваше число');
for i:=1 to 10 do begin
readln(a[i]);
If (a[i]-a[i-1]=2) then begin
pr:=pr*a[i];end;end;End.
var
a:integer;
pr:integer;
i:integer;
begin
a[0]:=0;
pr:=1;
writeln('Введите ваше число');
for i:=1 to 10 do begin
readln(a[i]);
If (a[i]-a[i-1]=2) then begin
pr:=pr*a[i];end;end;End.
Новые вопросы
Математика,
6 лет назад
Литература,
6 лет назад
Алгебра,
9 лет назад
Математика,
9 лет назад
Информатика,
9 лет назад
Математика,
9 лет назад