1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 uses crt; const n=10; var a:array[1..n] of integer; i,k,k0:integer; s:real; begin clrscr; writeln('Массив :'); for i:=1 to n do begin write(i,' = '); read(a[i]); end; k:=1; for i:=1 to n do if a[i]<0 then begin s:=s+a[i]; inc(k); end else begin if a[i]>0 then inc(k0); end; s:=s/k; writeln; if (k=1) and (k0=0) then writeln('Положительных или отрицательных элементов в массиве нет,среднее ариф-ское = 0') else writeln('Среднее ариф-ского отрицательных элементов массива =',s:0:2); readkey; end.
function Sum3(k: integer): integer; begin Sum3 := D[k] + D[k + 1] + D[k + 2] end;
var i: integer;
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin D[i] := Random(11); Write(D[i]:3) end; Writeln; Writeln('Сумма D[1]..D[3]: ', Sum3(1)); Writeln('Сумма D[3]..D[5]: ', Sum3(3)); Writeln('Сумма D[4]..D[6]: ', Sum3(4)) end.
begin
read (a, b, c, d);
if (a=b) and (b=c) and (c=d) then write ('Ромб') else write ('Не ромб');
end.