Uses crt; const n=10; var a: array[1..n] of integer; k: integer; function fun: integer; var i,m: integer; begin writeln('введите число m='); readln(m); k: =0; for i: =1 to n do if a[i] fun: =k; end; procedure sostmas; var i: integer; begin for i: =1 to n do begin a[i]: =random(199)-100; write(a[i]: 5); end; writeln; end; begin sostmas; writeln(fun); что то неправильно говорят массив

267

287

Посмотреть ответы 2

Ответы на вопрос:

Aznabaev09

Информатика

4,6(85 оценок)

Const n = 10; var a: array[1..n] of integer; function fun: integer; var i, m: integer; begin writeln('введите число m='); readln(m); for i : = 1 to n do if a[i] = m then fun : = i; end; procedure createmassive; var i: integer; begin for i : = 1 to n do begin a[i] : = random(199) - 100; write(a[i],' '); end; writeln; end; begin createmassive; writeln(fun); end. вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то не понятно было назначение функции fun потому она делает поиск номера элемента равного м а вообще переменные это зло. так что проектирование тут в корне не верно