Паскаль 8 ! с клавиатуры вводится число n, а за ним - массив из n элементов. найдите и выведите на экран произведение всех положительных элементов с чётными индексами.
Var a: array[1..100] of integer; i, n: integer; p: integer; begin randomize; writeln('massiv: '); readln(n); for i := 1 to n do a[i] := random(10) - 5; writeln('Исходный массив: '); for i := 1 to n do write(a[i], ' '); p:=1; for i := 1 to n do if (a[i]>0) and (i mod 2=0) then p:=p*a[i]; writeln('Произведение =',p); readln. end.
Var A,P:real; N:integer; Begin P:=1; Write('N = ');ReadLn(N); WriteLn('Введи массив'); For N := 1 to N do Begin ReadLn(A); if (N mod 2 = 0)and(A>0) then P:=P*A End; WriteLn(P) End.
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var a:=ArrRandom(ReadInteger('n='),1,99); a.Println; var k:=ReadInteger('k='); Writeln('Сумма чисел, кратных ',k,': ', a.Where(x->x mod k=0).Sum) end.
i, n: integer;
p: integer;
begin
randomize;
writeln('massiv: ');
readln(n);
for i := 1 to n do
a[i] := random(10) - 5;
writeln('Исходный массив: ');
for i := 1 to n do
write(a[i], ' ');
p:=1;
for i := 1 to n do
if (a[i]>0) and (i mod 2=0) then p:=p*a[i];
writeln('Произведение =',p);
readln.
end.