сервис вопросов и ответовнаписать прогу на паскале: у фигуристов проходит конкурс. Им присуждют баллы за 1-ю,2-ю и 3-ю программу катания. Найти средний балл всех трех программ
5-9 класс|
|
для каждого фигуриста, сумму балов для каждого фигуриста. Массив заполняется рандомом (желательно небольшие числа), кол-во фигуристов вводится с клавиатуры + найти победителя (максимальный средний балл)
Niashk0
25 окт. 2013 г., 11:23:14 (10 лет назад)
Abuxovsckaja
25 окт. 2013 г., 13:45:41 (10 лет назад)
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;
begin
ClrScr;
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.
Ответить
Другие вопросы из категории
пяти гномам показали 3 красных и 4 синих капюшона Затем в темноте на них надели 3 красных и 2 синих капюшона а остальные капюшоны спрятали Кто из
гномов может не смотря определить цвет надетого на него капюшона
Народ , помогите!Как делать презентацию на Windows 8 ?
Напишите пошагово .Особенно проблема с гиперссылками , абсолютно не понимаю как делать в Windows 8 эту гиперссылку!
Решите пожалуйста с подробным расписание решения . Возле школы растут шесть деревьев:сосна,берёза,липа,тополь,ель и клён.Какое из этих деревьев
самое высокое и какое самое низкое,если известно,что берёза ниже тополя,липа выше клёна,сосна ниже ели,липа ниже берёзы,сосна выше тополя?
Читайте также
Помогите решить задачки на паскале я совсем не разбираюсь в этом!!! 1)Дана таблица со значениями среднемесячных температур в течение года. Составить
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Найти алгоритм минимума из 3х целых чисел на паскале+ составить блок -схему.
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
1)Как можно описать на Паскале 1)Как можно описать на Паскале массив,в котором будет храниться значения численности населения Москвы к концу
каждого года XX века?
2)Вы приобрели котёнка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будет храниться значения веса котёнка в течение месяца (например,мая)?
ПОМОГИТЕ НАПИСАТЬ ПРОГРАМЫ НА ПАСКАЛЕ
№1 В области 12 райнов. Известны количество жителей каждого района (в тысячах человек) и плотность населения в нем (тыс. чел./ км2). Определить общую площадь территории области.
№2 Известны результаты двух спортсменов-пятиборцев в каждом из пяти видов спорта в баллах. Определить сумму баллов, полученных каждым спортсменом.
Вы находитесь на странице вопроса "написать прогу на паскале: у фигуристов проходит конкурс. Им присуждют баллы за 1-ю,2-ю и 3-ю программу катания. Найти средний балл всех трех программ", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.