Дано програму мовою Паскаль, яка знаходить найбільший елемент в масиві, прокоментуйте кожен фрагмент програми. Наприклад: 1- ім’я програми, 2- опис констант, і т.д.
1.program P2;
2. const n=7;
3. var a: array [1..n] of integer;
max,i: integer;
4. begin
5. for i:=1 to n do . begin .
write('a[',i,']='); .
readln(a[i]);
5. end;
6. max:=a[1];
7. for i:=2 to n do . if max
8. write('Найбільший елемент масиву max=',max);
4. end.
1.program P2;
2. const n=7;
3. var a: array [1..n] of integer;
max,i: integer;
4. begin
5. for i:=1 to n do . begin .
write('a[',i,']='); .
readln(a[i]);
5. end;
6. max:=a[1];
7. for i:=2 to n do . if max
8. write('Найбільший елемент масиву max=',max);
4. end.
More Questions From This User See All
Answers & Comments
Ответ:
1) Название программы
2)Описание постоянных переменных
3)Описание переменных
4)Начало
5)Параметрический цикл от 1 до N элементов
Вывод a[i]= (где i-число из цикла)
Ввод элемента в массив a под номер i
5)конец цикла
6)Присваиваем переменной max значение первого элемента массива
7)Параметрический цикл от 2 до n элемента
(Там не дописана программа частично после if, должно быть так:)
8) если максимальный элемент меньше a[i] элемента, то максимальному присваиваем значение a[i]
9) Вывод Найбільший елемент масиву max= (max число)
10) конец программы