Var
a,b,c,d,k:real;
begin
k:=0;
writeln('Vvedite 4 chisla');
readln(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
writeln('Kol-vo otritsatelnih chisel = ',k);
end.
Показания полицейским нужны чтобы без ошибочно найти приступника
И что же мы должны отвечать? Где вопрос?
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),-5,5);
a.Println;
var b:=a.Select((x,i)->x=0?i+1:0).Where(i->i>0);
if b.Count>0 then begin
b.Println(','); Writeln('Кол-во: ',b.Count)
end
else Writeln('Нет нулевых элементов')
end.
<u><em>Тестовое решение:</em></u>
n= 20
-4 2 5 -2 0 5 4 4 -3 -2 -5 2 1 0 -2 0 4 1 -2 3
5,14,16
Кол-во: 3
1) 32*1024 =2^5 * 2^10 = 2^15
2) 28 Кбайт =28 *2^13 бит =7*2^15 бит
3) 7*2^15 : 2^15 = 7 бит
4) 2^7 = 128 - максимальное количество цветов в палитр