Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
check comment ( pls delete )
5 надеюсь что язык запросов SQL, а не какой то экзотический)
а) select * from p where время отправления<=06:00:00
b) select * from p where стоянка>30
в) select * from p where откуда='Свердловск'
г) select * from p where куда<>'Москва'
6
а) 73, 339, 285, 49Н,
б) 73, 285, 49Н, 265Н,
в) 45
г) 73, 265Н, 45
Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>