Dim a(1 to 20) as Integer
Dim i as Integer
Randomize Timer
For i=1 To 20
a(i)=Int(50*Rnd)-25
Print a(i);
Next i
Print
For i=1 To 20
If a(i)>0 Then Print i;
Next i
Print
A→Г→Б→В
пояснение:
А- Поиск будет по запросам Солнце или воздух или вода (Хотя бы одно совпадение из трех)
Б- Поиск будет осуществлятся по запросу, в котором есть и солнце и воздух (в запросе должны быть оба эти слова)
В аналогично Б
Г аналогично А
1) стол, книга, блокнот.
2) радуга, гроза.
3) учеба, чтение.
Program z1;
Var i,n,a,b,c:integer;
m: array [1..1000] of integer;
Begin
write('Введите кол-во чисел - ');
readln(n);
randomize;
a:=0; b:=0; c:=0;
for i:=1 to n do
begin
m[i]:=random(100)-50;
write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);<span>End.</span>