2мб,1,2мб,1230кб,3кб,3070байт
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)-10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
if k>0
then writeln('В массиве есть отрицательный элемент(ы)')
else writeln('В массиве все элементы >=0');
end.
Пример:
<span> -5 6 -4 13 -1 -6 9 30 36 36
В массиве есть отрицательный элемент(ы)</span>
Var summa,count,numb :integer;
begin
summa:=0;
count:=0;
readln(numb);
while numb <> 0 do
begin
if numb mod 17 = 0 then
begin
summa:=summa+numb;
count:=count+1;
end;
readln(numb);
end;
if (summa > 0) and (count > 0) then
writeln(summa,' ',count)
else
writeln('No');
end.<span>
</span>
Держи ответ. формулы для пепевода 8=4:2:1. 16=8:4:2:1
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>