===== PascalABC.NET =====
//1
begin
var a :=ArrRandom(25, 0, 100);
a.Println;
Print('Число четных:', a.Count(p -> p.IsEven))
end.
//2
begin
var a := ArrRandom(10, 10, 50);
a.Println;
Println('Число кратных 3:', a.Where(p -> p mod 3 = 0).Sum);
Println('Произведение меньших 35:',
a.Where(p -> p < 35).Aggregate(int64(1), (p, q) -> p * q))
end.
Пусть даны сторона ромба a и радиус вписанной окружности r. Тогда площадь ромба равна 2ar.
Необходимо получить значения a, r; вычислить значение площади и вывести его. Блок-схема приведена во вложении.
Program mass;
uses
crt;
var
a: array [1..10] of integer;
i: integer;
begin
randomize;
writeln('Исходдный массив: ');
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(' ', a[i], ' ');
end;
Writeln;
writeln('После замены отрицательных чисел на 0:');
for i := 1 to 10 do
begin
if a[i] < 0 then a[i] := 0;
write(' ', a[i], ' ');
end;
writeln;
end.
ща переделаю не увидел что ті изменила задание
если правильно понял
program k,i,r1,R2:integer;
s:array[1..10] of integer;
begin;
k:=0;
readln(r1);
readln(r2);
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>r1) and (a<r2) then inc(k)
write(k);
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
