12.11.2015, 16:51 | #1 (permalink) |
Новичок
Регистрация: 12.11.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить
|
12.11.2015, 16:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблему решать гораздо легче, если набраться информации из схожих тем Помогите решить Помогите решить |
12.11.2015, 20:20 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
const n=20;
var A:array[1..n] of byte; i,m,min:byte; begin Randomize; for i:=1 to n do begin A[i]:=Random(50)+1; Write (A[i]:4); end; m:=0; min:=100; for i:=1 to n do if A[i]<min then begin min:=A[i]; m:=1; end else if A[i]=min then Inc(m); Writeln; Writeln('min= ',min); Writeln('vsego min= ',m); Readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|