Var b,c,d: integer; a:array [1..100] of integer; begin randomize; writeln('введите длину массива'); readln(b); d:=1; for c:=1 to b do begin a[c]:=random(10); writeln(a[c]); if a[c] <> 0 then d:=d*a[c]; end; writeln('произведение не нулевых элементов массива ',d); end.
Var a,max,sum:integer; arr:array [0..2015] of integer; begin randomize; max:=-500; sum:=0; for a:=0 to 2015 do begin arr[a]:=random(1001)-500; if max<arr[a] then max:=arr[a]; end; write('максимальный элемент массива ==> ',max); writeln();
if max mod 2 = 1 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =1 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
sum:=0; if max mod 2 = 0 then begin for a:=0 to 2015 do begin if arr[a] mod 2 =0 then sum:=sum+arr[a]; end; writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum); end;
var a: array[1..100] of real; i, n: integer; min, max: real; k: integer;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100); write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} k := 0; for i := 1 to n do if a[i] > 5 then k := k + 1; writeln(k); end.
a:array [1..100] of integer;
begin
randomize;
writeln('введите длину массива');
readln(b);
d:=1;
for c:=1 to b do begin
a[c]:=random(10);
writeln(a[c]);
if a[c] <> 0 then d:=d*a[c];
end;
writeln('произведение не нулевых элементов массива ',d);
end.