А где варианты ответов?
а по логике от 7,1 до 7,9
условие: первая буква -гласная
если да, то вывести слово без первой буквы, иначе-оставить без изменений
Процессор, оперативная память.
var a,i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 16 do
begin
a:=random(36)-16;
write(a,' ');
if a<0 then
begin k:=k+1; s:=s+a; end;
end;
writeln;
if k=0 then writeln('Нет отрицательных')
else writeln('k = ',k,' s = ',s,' sr = ',s/k:5:3);
end.
Пример:
-8 17 -1 -8 11 8 -5 7 8 -4 4 5 10 -16 12 4
k = 6 s = -42 sr = -7.000
Ответ:
2
Объяснение:
Алгорим тут, мягко говоря, странноват.
t :=a[i];
a[i-1] := a[0];
a[0] := t
Никакого t здесь не нужно, достаточно написать
a[i-1] := a[0];
a[0] := a[i]
В цикле, начиная с третьего по порядку элемента, производится его сравнение с самым первым элементом (вначале его значение равно 5).
Присваивание a[i-1] := a[0] в теле цикла никак на a[0] не влияет и на сравнение не влияет, поэтому забудем о нем.
Таким образом, существенным оказывается лишь факт попадания на место a[0] элемента, меньшего a[0] и каждое такое попадание увеличивает счетчик с на 1. Первонаяальное значение с нулевое, так что с отражает количество попаданий в a[0] элементов, меньших его значения. Анализ значений элементов с a[2] по a[9] показывает, что сначала в a[0] попадает 2 (2 < 5), а затем 0 ( 0 < 2). Поэтому с = 2.