• TurboPascal
    В массиве k1, k2 , ..., k60 найти сумму чисел меньших единицы.
    Объясните как решать, пожалуйста.

Ответы 1

  • Напишу на PascalABC надеюсь Turbo похожиprogram Test;const N=60;var k:array [1..N] of integer;sum:integer;beginfor i:=1 to 60 do{заполнение массива и сразу подсчет суммы}beginreadln(k[i]);{вводите элемент с индексом i}if k[i]<1thensum:=sum+k[i];{если его значение меньше еденице, то он прибавляется к сумме}end;writeln(sum);{вывод суммы на экран}end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years