Напишите программу для решения следующей .девятиклассники участвовали в викторине по . необходимо было ответить на 20 вопросов. победителем викторины считается участник, правильно ответивший на наибольшее количество вопросов. на сколько вопросов победитель ответил правильно? если есть участники викторины, которые не смогли дать правильный ответ ни на один из вопросов, выведите yes, иначе выведите no. гарантируется, что есть участники, правильно ответившие хотя бы на один из вопросов.программа получает на вход число участников викторины n (1 ≤ n ≤ 50), затем для каждого участника вводится количество вопросов, на которые получен правильный ответ. пример работы программы: входные данные 4 15 12 0 17 выходные данные 17 yes
239
481
Ответы на вопрос:
Var n, i, max: shortint; arr: array[1..50] of shortint; v: string; begin v : = ' no'; max : = -(maxsmallint); readln(n); for i : = 1 to n do begin read(arr[i]); if arr[i] > max then max : = arr[i]; if arr[i] = 0 then v : = ' yes'; end; writeln(max, v); end.
Var a=array [1..5,1..8]of byte; i,j,sum: integer; begin for i: =1 to 5 do for j: =1 to 8 do a[i,j]: =random(10); for i: =1 to 5 do begin for j: =1 to 8 do write(" ",a[i,j]); writeln(); end; sum: =0; for i: =1 to 5 do for j: =1 to 8 do if (a[i,j]> 5) then sum: =sum+a[i,j]; if (sum< > 0)then writeln("summa= ",sum) else if (sum=0) then writeln("net bolhe 5"); end.
Популярно: Информатика
-
АндрейДемаков02.10.2021 09:55
-
suleymanovrusl04.10.2022 09:45
-
burakova198520001.12.2022 19:38
-
vasilprokofiev01.03.2022 07:37
-
sanyashoydokov12.06.2022 03:52
-
Лилия20000025.09.2022 19:30
-
marshaldir8014.05.2022 00:14
-
bbigigitovadakit22.04.2021 10:44
-
karinaalisa25.01.2021 18:57
-
Саша03061206.09.2022 13:18