Определите, что будет выведено в результате выполнения следующей программы: program m1; var i, k: integer; a: array [1..10] of integer; begin for i:= 1 to 10 do a [ i ]: = i - 5; k:= 0; for i:= 1 to 10 do if a [ i ]>=0 then k:= k + 1; writeln (‘k= ‘, k) end.

Информатика

Ответить

Ответы

tip36

06.09.2021

программа считает количество не отрицательных элементов массива

будет выведено:

k=6

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Определите, что будет выведено в результате выполнения следующей программы: program m1; var i, k: integer; a: array [1..10] of integer; begin for i:= 1 to 10 do a [ i ]: = i - 5; k:= 0; for i:= 1 to 10 do if a [ i ]>=0 then k:= k + 1; writeln (‘k= ‘, k) end.

▲

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

В90-е годы стремительно взлетела популярность видеоигр. кто помнит, когда был релиз нашумевшей стрелялки «doom ii»?

На плоскости заданы N точек. Найти ближайшего «соседа» для каждой точки. решить питон

Напишите функцию int min (int a, int b, int c, int d) (c/c++), static int min (int a, int b, int c, int d) (java) function min (a, b, c, d: integer): integer (pascal), находящую наименьшее из ...

20 ! в течении пяти минут, со скоростью 20 байт в секунду передавалось сообщение. сколько символов оно содержало, если алфавит состоит из 32-х символов? нужно!

Опишите переменную mas для одномерного массива состоящего из 100 вещественных чисел

Найдите значение переменнойS, если N=7 Начало Ввод N S:=1 i=1, N; шаг 2 S:=S*i Ввод S Конец

В школьной олимпиаде участвовало 75 человек...

Составить программу для линейного уравнения kx+a=b(вместо букв нужно подставить любые цифры

На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. Найти минимальное из введённых чётных чисел