program LessThanNine;
Var
A, B : Array of Integer;
I, Kolvo : Integer;
begin
randomize;
SetLength(A,11);
SetLength(B,11);
Kolvo := 0;
For I:=0 to 10 do
begin
A[I]:=random(16);
Write(A[I], ' ');
end;
Writeln;
For I:=0 to 10 do
begin
B[I]:=A[I] * 2;
Write(B[I], ' ');
end;
Writeln;
For I:=0 to 10 do
if B[I]<9 then
Kolvo := Kolvo + 1;
Write('Количество элементов меньше 9-ти: ', Kolvo);
end.
Объяснение:
Ну надеюсь не докопаются до того, что тут вывод на экран происходит в том же цикле, что и присваивание значений всем элементам
Объяснение:Windows — семейство коммерческих операционных систем (OC) корпорации Microsoft, ориентированных на управление с графического интерфейса. Изначально Windows была всего лишь графической программой-надстройкой для распространённой в 1980-х и 1990-х годах операционной системы MS-DOS. Согласно данным ресурса Net Applications, по состоянию на август 2014 года под управлением операционных систем семейства Windows работает около 88 % персональных компьютеров. Windows работает на платформах x86, x86-64 и ARM. Существовали также версии для DEC Alpha, MIPS, IA-64, PowerPC и SPARC. Последней на данный момент операционной системой Microsoft является Windows 10, представленная в июле 2015 года.
var a:array[1..35] of integer;
i,k,s:integer;
begin
randomize;
for i:=1 to 35 do a[i]:=random(10)+1;
writeln('Массив:');
for i:=1 to 35 do writeln('a[',i,']=',a[i]);
s:=0;
k:=0;
for i:=1 to 35 do
begin
if(a[i] mod 5)=0 then
begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln('Сумма:',s);
writeln('Количество:',k);
end.