program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
Поделитесь своими знаниями, ответьте на вопрос:
D. Набор цифр Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt Первоклассники осваивают клавиатуру. Учитель диктует вразброс цифры и с повторением. Ребята набирают на клавиатуре. Надо подсчитать количество единиц, количество двоек, количество троек и т.д. Предполагается, что будет введено не более 100000 цифр. В ответе должно быть 9 чисел Формат ввода На вход программе подается последовательность чисел (набор цифр) Формат вывода 9 чисел Пример Ввод Вывод 1 1 4 1 5 8 6 3 5 1 0 4 0 1 1 2 1 0 1 0
Объяснение:
ar a:integer;
begin
read(a);
if a div 2,then writeln ('YES')
else writeln ('NO');
end.