Задать вопрос
25 февраля, 01:16

Var k, m: integer;

Dat: array[1 ... 10] of integer;

Begin

Dat[1] : = 16; Dat[2] : = 20;

Dat[3] : = 20; Dat[4] : = 41;

Dat[5] : = 14; Dat[6] : = 21;

Dat[7] : = 28; Dat[8] : = 11;

Dat[9] : = 15; Dat[10] : = 35;

m : = 50;

for k : = 1 to 10 do

if Dat[k]
begin

m : = Dat[k]

end;

writeln (m) ;

End.

+3
Ответы (1)
  1. 25 февраля, 01:41
    0
    Ответ задачи равно 11
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Var k, m: integer; Dat: array[1 ... 10] of integer; Begin Dat[1] : = 16; Dat[2] : = 20; Dat[3] : = 20; Dat[4] : = 41; Dat[5] : = 14; Dat[6] ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы