Задача 5. Казкова історія ( )
Коли Василині Премудрій виповнилося 18 років, Чахлик Невмирущий вирішив взяти
її заміж. Василина запитала Чахлика, скільки у нього скринь із золотом. Чахлик сказав,
що в нього зараз п скринь і кожний рік додається ще пo t скринь. Василина пообіцяла,
що вийде заміж тоді, коли у Чахлика буде і повних скринь із золотом. Скільки років
буде тоді нареченій? (n, h, t- запитуються у користувача)
Підказка: поки скринь менше за һ то до кількості скринь додавати t, а кількість років
Василини збільшувати на 1 (перед циклом початкове значення років Василини r=18).
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15
2.Мама обрадовала Петю: он совсем не ожидал получить компьютер на день рождения.
3. Учительница сказала, что сегодня мы будем работать на компьютере.
4. Паскаль- самый сложный язык в программировании на компьютере.
5. Вова обожал играть в видеоигры на компьютере.
6. "Ребята, сегодня наш класс пойдёт смотреть в технический музей на первые компьютеры"- сказала учительница.
7. Бабушка удивилась, что Катенька так быстро печатает на компьютере.
8. Настя была опечалена: из-за сломанного usb-порта компьютер не воспринимал съемный носитель.
9. Первые компьютеры были очень большими.
10. Милана очень хотела новый компьютер, но папа посчитал нужным подарить ей книги.