Паскаль, 8 класс
1.Заполнить массив случ. числами в интервале [0,100] и отобрать в другой массив все числа. Используйте логическую функцию, которая определяет, является ли переданное ей число за мою тупость нам задали, а меня не было
Я недавно зарегистрироваться, поэтому не знаю как увеличить(
Ограничения: Последовательность не может быть длинее NN.
Откуда: Олимпиада, KZ, 2016.}
const NN = 10000;
var a : array [1 .. NN] of integer; i, j, d, N: integer;
begin
write('Введите длину массива: '); readln(N);
writeln('Введите массив чисел через пробел:');
for i := 1 to N do read( a[i] );
{ Удаляем повторы чисел }
for i := 1 to N-1 do
for j := i+1 to N do
if a[i] = a[j] then a[j] := 0;
{ Создаем последовательность заполняя не нужные числа нулями }
for i := 2 to N do if ( a[i-1] > a[i] ) and ( a[i] <> 0 ) then a[i] := 0;
{ Суммируем не нулевые элементы }
d := 0; for i := 1 to N do if a[i] <> 0 then d := d + 1;
writeln('Максимальная длинна массива после удалений: ',d);
end.
Решение:
1.Задача сводится к нахождению числа точек по ширине экрана. Выразимразмер диагонали в сантиметрах. Учитывая, что 1 дюйм=2,54 см., имеем: 2,54 см • 15 = 38,1 см. 2.Определимсоотношение между высотой и шириной экрана для часто встречающегося режима экрана 1024х768 точек: 768 : 1024 = 0,75.3.Определимширину экрана. Пусть ширина экрана равнаL, а высотаh,
h:L=0,75, тогдаh= 0,75L.
По теореме Пифагора имеем: L2+ (0,75L)2= 38,121,5625 L2= 1451,61 L2≈ 929L ≈ 30,5 см. 4. Количество точек по ширине экрана равно: 305 мм : 0,28 мм = 1089. Следовательно, максимально возможным разрешением экрана монитора является 1024х768.
ответ: 1024х768.