// PascalABC.NET 3.3
1.
begin
var a:=ArrRandom(10,-10,10); a.Println;
a:=a[1:]; a.Println;
end.
Пример:
7 4 0 -4 0 8 5 -6 -9 -8
4 0 -4 0 8 5 -6 -9 -8
2.
begin
var a:=ArrRandom(10,0,4); a.Println;
var x:=ReadInteger('x =');
a.IndexesOf(z->z=x).Select(z->z+1).Println;
end.
Пример:
2 1 3 0 4 2 3 2 3 0
x = 3
3 7 9
Если каждого вида по одному то остаётся 15 рыб!
60.Жесткий диск 61.Диск 62 .память этого человека
С какими списками? Я не знаю по какому учебнику вы учитесь)
Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin
Writeln('Vvedite massiv');
for i:=1 to N do
readln(a[i]);
b:=0; c:=0; d:=0;
for i:=1 to N do begin
if a[i] = 0 then inc(b);
if a[i] > 0 then inc(c);
if a[i] < 0 then inc(d);
end;
writeln('Kol-vo ravnih 0 - ',b);
writeln('Kol-vo bolshe 0 - ',c);
writeln('Kol-vo menshe 0 - ',d);
readln;
end.
<span>
</span>