program n1; uses crt; var a,b,c,sum: array[1..100] of integer; srb: array[1..100] of real; i,k,n: integer; sr: real; beginclrscr; randomize; writeln('vvedite kol-vo figuristov'); readln(n); writeln('rezultaty'); for i: =1 to n do begin a[i]: =random(10); write(a[i]: 4); end; writeln; for i: =1 to n do begin b[i]: =random(10); write(b[i]: 4); end; writeln; for i: =1 to n do begin c[i]: =random(10); write(c[i]: 4); end; writeln; writeln('summa ballov'); for i: =1 to n do begin sum[i]: =a[i]+b[i]+c[i]; write(sum[i]: 4); srb[i]: =sum[i]/3; if srb[i]> sr then begin sr: =srb[i]; k: =i; end; end; writeln; writeln('srednii rezultat'); for i: =1 to n do write(srb[i]: 4: 2,' '); writeln; writeln('pobedil figurist ',k,' s rezultatom ',sr: 2: 2); readln end.
всего три числа?
решу с рандомным
на паскале:
var
a,b,c: integer;
min, max: integer;
begin clrscr;
a: =random(10)+0;
b: =random(10)+0;
c: =random(10)+0;
if (a< b) and (a< c) then
min: =a
else
if (c< a) and (c< b) then
min: =c
else
min: =b;
if (a> b) and (a> c) then
max: =a
else
if (c> a) and (c> b) then
max: =c
else
max: =b;
writeln('максимальное: ',max);
writeln('минимальное: ',min);
readkey;
end.
Поделитесь своими знаниями, ответьте на вопрос:
1) к прикладным программам относятся: 1 текстовые редакторы 2 графические редакторы 3 бухгалтерские программы 4 табличные процессоры 2) в игре поле чудес загадали слово из 16 букв вы просите открыть 2 букву.когда вам ее открыли, какое количество информации вы получили? 1 16 бит 2 1 байт 3 4 бит 4 8 бит 3) у матери было четыре сына: миша, ваня толя, гоша. двое из низ близнецы. известно что толя старше мишы, который моложе гоши. толя моложе ваня, который старше гоши. кто из детей близнецы. 4) какие из определений относятся к дисплейному процессору? 1состовляющая видеокарта 2 электронное энергозависимое запоминающее устройство 3 устройство для ввода в компьютер изибражения 4 работой дисплея 5) что из нижеперичисленного можно отнести к информационным моделям? 1 манекен 2 карточка больного 3 карта местности 4 модель застройки городп 6) какой символ необходимо разместить перед запросом в строке поиска в интернете, чтобы было обязательное присутствие всех слов в найденных документах? 1 & 2 + 3 ! 4 * 7) ты работал в каталоге c: \dool\fors1\ddd_модель. затем перешел на один уровень више в дереве каталогов, спустился в подкаталог ddd_рок и удалил из него файл coni.22. назовите полное имя файла , который вы удалили.