Вопрос по Гиа информатика задание №10 - есть ответ

Без имени, 168 просмотров

В таблице Dat храниться данные. Определите что будет напечатано в результате выполнения следующей программ.
Var k, m, l: intrger;
Dat: array [1..11] of integer;
Begin
Dat[1]:=35;
Dat[2]:=32;
Dat[3]:=31;
Dat[4]:=38;
Dat[5]:=37;
Dat[6]:=43;
Dat [7]:=34;
Dat [8]:=32;
Dat[9]:=39;
Dat[10]:=34;
Dat[11]:=36;
l:=0; m:=0;
for k:=1 to 11 do
if Dat [k]>34 then begin
m:=m+1; l:=l+Dat[k]
end;
write (l/m)
end.
Напишите пожалуйста решение. как считать. и ответ.

Ответы:

Dick Rapture

В этой программе перебираются все числа из массива. Если n-ое число больше, чем 34, то оно прибавляется к l. l:=l+Dat[n-ое число];
То есть изначально l = 0; после перебора l = 228;
В это-же время m каждый раз, когда n-ое число больше 34, увеличивается на 1.
После перебора m = 6;
Потом выводится результат деления l на m
то есть write( l/m )

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.