Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
65(8)=53(10)< 53(7)=38(10)
A, b, c = map(int, input().split()) #ввод в строчку
if min(a, b, c) > 10 and a%3 == 0 and b%3 == 0:
print("yes")
else:
print("no")
Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150