var a:array[1..20] of integer; i,arf,k:integer;
begin
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(10);
if (a[i]/2=a[i] div 2) or (i/2<>i div 2) then
begin arf:=arf+a[i]; inc(k); end;
end;
arf:=round(arf/k);
for i:=1 to 20 do writeln('a[',i,']= ',a[i]);
writeln('Srendee arirfm. chentix chisel u nechetnix indexov = ',arf);
readln;
end.
Pascal:
var b:longint;
a:real;
begin
read (a,b);
write (a:b);
end.
у квадрата все стороны равны.
сумма углов треугольника равна 180 градусам.
Program pr1;
Uses Crt;
Var
dn:integer;
begin
ClrScr;
write('Введите номер месяца:');
readln(dn);
if (dn>0) and (dn<13) then
begin
case dn of
1,3,5,7,8,10,12:writeln('В этом месяце 31 день');
4,6,9,11:writeln('В этом месяце 30 дней');
2:writeln('В этом месяце 28 дней');
end;
end
else writeln('Введите корректно');
readln;
end.
Программа перемножает все четные цифры введенного числа и считает их количество, затем произведение и количество выводит на экран.