//прога на Pascal`e
var
a : array[1..10] of shortint;
i, count, sum : byte;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.
//PascalABC.Net 3.2
begin
var time:=readinteger('Введите время суток: ');
if time in [0..5] then write ('Ночь')
else if time in [6..11] then write ('Утро')
else if time in [12..18] then write ('День')
else write ('Вечер');
end.
Что нужно сделать то? Схему нарисовать, или программу написать?
Алгоритм содержит цикл с предусловием. Цикл выполняется до тех пор, пока b≠5. Начальное значение b=10, а в теле цикла b уменьшается каждый раз на 1, т.е. цикл будет выполнен для b=10,9,8,7,6 - пять раз.
В цикле переменная с накапливает сумму значений b, следовательно по окончании цикла с = 10+9+8+7+6 = 40
Ответ: 40
"15225", у меня вывело это) Поставь, если нужно, пробелы, когда выводишь c1, c2, c3 и с4. Тогда "1 52 2 5")