var a: array[1..100] of real; i, n: integer; min, max: real; k: integer;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100); write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} k := 0; for i := 1 to n do if a[i] > 5 then k := k + 1; writeln(k); end.
Все объекты на Рабочем столе можно разделить на 3 группы: ярлыки,файлы,папки.Сведения о файле, папке или ярлыке можно найти в пункте меню Пуск справка и поддержка.Окно-это прямоугольная область экрана, в которой выводится определенная информация: содержимое дисков, программы, создаваемые пользователем документы, запросы и сообщения Windows. Окна можно открывать (разворачивать), закрывать, сворачивать, перемещать, упорядочивать, менять размеры . Открытое окно может занимать целый экран или его часть.Управлять размерами окна можно плавно с мыши и автоматически - с
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку