Вопрос по информатике:
Решите пожалуйста вторую задачу, буду очень благодарна, нужно до завтра
- 01.11.2017 14:39
- Информатика
- remove_red_eye 6536
- thumb_up 12
Ответы и объяснения 1
Uses crt;var s,i,n,m,l,j:integer; a:array[1..100,1..100] of integer;begin clrscr; randomize; write('Введите размерность двумерного массива '); readln(n,m); s:=0; for i :=1 to n do for j:=1 to m do begin a[i,j]:=random(200)-100; write('a[',i,',',j,']=',a[i,j],'; '); end; writeln; write('Введите искомый элемент '); readln(l); for i :=1 to n do for j:=1 to m do if a[i,j]=l then s:=s+1; if s>0 then Writeln('элемент в массиве есть') else Writeln('элемента в массиве нет')end.
- 02.11.2017 07:37
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.