Вход Решение
k 10 10 11
s 10 10+10 = 20 20+11=31
Напечатано будет 31.
Только почему цикл от 10 до 11 (проверь строчку <span>for k=10 to 11 do)</span>
Наверно в задании опечатка - работая с одним и тем же учебником, получает разное количество информации. Наверно так должно быть.
Ответ:
Необходимо различать понятия информация и информативность. <span>· Например Содержит ли информацию учебник информатики 11 класс? (Да).</span> <span>· Для кого он будет информативным - для ученика 11 класса, 8 или 1 класса? (Для ученика 11 класса он будет информативным, так как в нем содержится новая и понятная ему информация, а для ученика 1 и 8 класса она информативной не будет, так как информация для него непонятна.)</span>
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.