Цена товара обозначена в рублях с точностью до копеек, то есть вещественным числом с двумя цифрами после десятичной точки. в целочисленных переменных получите и выдайте значения целого числа рублей и целого числа копеек в цене товара.
1. var a: array[1..100] of Integer ; i,n,p: integer; begin p:=1; Writeln('Введите количество элементов в массиве'); Readln(n); Writeln('Масив'); for i:=1 to n do begin a[i]:=Random(10); Write(a[i]:3); if a[i] mod 2 = 0 then p:=p*a[i]; end; Writeln; Writeln('Произведение четных элементов массива = ', p); end.
2. var a: array[1..10] of Integer ; i,c,sum,n: integer; begin Writeln('Введите число'); Readln(c); for i:=1 to 10 do begin Writeln('Введите ', i,' элемент массива'); readln(a[i]); if a[i] > c then begin sum:=sum+a[i]; n:=n+1; end; end; Writeln('Среднее арифмитическое элементов массива которые превышают ', c, ' = ',sum/n); end.
В этой проге 1 и 2 program p1; uses crt; Const n = 10; var a:array [1..n] of integer; i,p,c:integer; k,sr:real; begin read(c); for i := 1 to N do begin a[i]:= random(21)-10; write(a[i]:4); end; writeln; p:=1; sr:=1; for i:=1 to N do begin If (a[i]mod 2 = 0) and (a[i]<>0) then begin p:=p*a[i]; end; If c<=a[i] then begin sr:=a[i]*sr; K:=k+1; end;
var a: real;
r,k: integer;
begin
readln(a);
r:=trunc(a);
k:=trunc(a*100);
k:=(k mod 100);
writeln('рубли:',r);
writeln('копейки:',k);
end.