ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 12 ВАРИАНТсрочно
Ответы:
25-08-2018 23:33
//PascalABC.NET 3.2 сборка 1318Var ar:array of integer; i,n,min,k:integer;beginreadln(n);setlength(ar,n);min:=integer.MaxValue;for i:=0 to n-1 do begin readln(ar[i]); if min>ar[i] then min:=ar[i]; end;for i:=0 to n-1 do if ar[i]=min then inc(k);writeln(k);end.Пример ввода:3121Пример вывода:2
Также наши пользователи интересуются:
Складзіце сказы з аднароднымі членамі. Выкарыстайце дадзеныя словы. а) прачытать, Перепел,Тимошка,перепёлку,и,перепелят,Трошке,крошит,в,перелеске,прятал,в,окрошку,
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 12 ВАРИАНТсрочно» от пользователя Rinat Gorobchenko в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!