Var b:integer;
a: array [0..6] of integer;
begin
randomize;
for b:=0 to 6 do begin
read(a[b]);
end;
for b:=6 downto 5 do begin
write(a[b],' ');
end;
writeln('');
for b:=0 to 4 do begin
write(a[b],' ');
end;
writeln('');
end.
begin
var x := ArrRandom(10, 0, 9); x.Println;
var y := Arrrandom(8, 0, 9); y.Println;
var z := (x.Where(x->x>0) + y.Where(x->x>0)).toList;
if z.Count<18 then
z.AddRange(SeqFill(18-z.Count, 1));
z.Println;
end.
В базе данных нужно создать форму и включить фильтр на графу клуб и спорт что бы высветилось только нужные тебе люди , также добавить отображение Фамилии
uses Crt;
var a, b, temp, i, S:integer;
begin
ClrScr;
Write (' a = '); ReadLn(a);
Write (' b = '); ReadLn(b);
S:=0;
i:=a;
while i<=b do
begin
if (i mod 2 = 0) then S:=S+i;
i:=i+1;
end;
WriteLn(' S = ', S);
ReadLn;
end.
Например, "Сегодня на улице -10 градусов" - это объективная информация, полученная с термометра. То есть никто с этим спорить не будет.
А еще можно сказать: "Сегодня на улице холодно", это уже будет субъективная информация. Как считаю только я, или еще кто-то.
Проще говоря, объективная информация не зависит от мнения кого-либо.
Еще примеры:
"Радиация увеличилась в два раза"
"Сегодня состоится солнечное затмение"
"Этот дом скоро будет отремонтирован"