1. а=5 (считает слова)
2. d=1 (считает дни)
3. если D <= 10,
4. то перейти к п. 4,
5. иначе перейти к п.6
6. а = а + 2 d = d + 1
7. вывод а
<span>8. конец</span>
Результат -> Исходное число:
156 -> 960
1717 -> 989
Ответ: 2
var
A: array [1..10] of Integer;
i, s: Integer;
begin
Randomize;
WriteLn ('Массив:');
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i], ' ');
end;
for i := Low (A) to High (A) do begin
if (A [i] > 50) and (A [i] <= 80) then
s := s + A [i];
end;
WriteLn;
WriteLn ('Сумма элементов массива = ', s);
end.
бит свободно О_О
секунд = 202,9 минуты = 3,81 часа =)
Угу, вот, надеюсь, хватит:)