var temp:array[1..31] of integer;
k,i:integer;
begin
for i:=1 to 31 do readln(temp[i]);
for i:=1 to 31 do
if a[i]<0 then inc(k);
writeln(k);
end.
Вы добавили вчера , вам ещё нужно?
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->2*(i+1)+1); a.Println
end.
<span>графическую или текстовую информацию</span>
1).Числовая информация представлена в Десятичной системе счисления или другими словами (позиционной). Сейчас говорят в Десятичной.
2)В символической используется позиционная двоичная.
3)В графической всегда восьмеричная система счисления.
4)Для звука будет двоичная система счисления.
5)А для видео Шестнадцатиричная система счисления!