Напишите программу подсчитывающая количество минимальных элементов в заданном массиве

268

409

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

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

motztv21

Информатика

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

Program glg; var a: array[1..10] of integer; min, kol: integer; begin i : = 0; kol: =0; min: = 100000; while i < 10 do begin readln (a[i]); if a[i] < min then min: = a[i]; end i: =0; while i < 10 do if a[i] = min then kol = kol + 1; writeln(kol); end. если ошибки будут, пишите в комментарии. я с телефона писал, мог где-нибудь, да ошибиться. (написано на pascal)