1. Информатика
  2. Паскаль в массиве1.Составьте

Паскаль в массиве
1.Составьте программу, которая в одномерном массиве размерностью 12 (элементы случайные числа из промежутка от 1 до 9) подсчитывает количество чётных элементов. Оформите вывод элементов на экран в строчку, вывод количества чётных на следующей строке.

2.Составьте программу, которая в одномерном массиве размерностью 8 (элементы массива случайные числа из промежутка от 15 до 100) находит максимальный элемент. Оформите вывод элементов на экран в строчку, максимальный на следующей строке.

sofia2004417 sofia2004417    3   06.04.2020 22:10    11

Ответы
alenazakhar2000al alenazakhar2000al  12.10.2020 19:32

PascalABC.NET 3.5.1

#1

begin

 var A := ArrRandom(12, 1, 9);

 A.Println;

 A.Where(p -> p mod 2 = 0).Count.Println;

end.

#2

begin

 var A := ArrRandom(8, 15, 100);

 A.Println;

 A.Max.Println;

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sabina9262 sabina9262  03.09.2019 08:30
Чему было равно значение переменой b, если после выполнения алгоритма a = 5; c = (a-b-1)*3; d = c+a+b; f = a*b*c-d f стало равно 34?...
myra5 myra5  18.10.2019 15:28
Вкабинете информатики имеется 11 компьютеров и принтер. для обмена информацией между компьютерами и для возможности совместного использования принтера необходимо соединить...
двоечник60 двоечник60  18.10.2019 15:29
Крупное предприятие имеет несколько филиалов в разных городах казахстана. какое устройство необходимо использовать для соединения филиалов между собой в единую компьютерную...
Aruuuuuuuu Aruuuuuuuu  18.10.2019 15:31
эскадра инопланетных летающих тарелок приблизилась к земле и решила высадиться на поле у фермера-уфолога васи. инопланетяне так ни разу не делали, но выбрали этого фермера...
Мила20011 Мила20011  18.10.2019 13:33
Решить проблему, если понимаете в чём дело​...
lera10211 lera10211  18.10.2019 13:34
Кирилл хочет закодировать 16 символов с равномерного двоичного кода. определите минимальную возможную длину кодовых слов...
mamikon777 mamikon777  17.02.2022 01:36
ТЕКСТ ЗАДАНИЯ Напишите код программы на языке Python, с использованием оператора While, которая вычисляет сумму вещественных чисел на отрезке от (-2;2] с шагом 0,2....
MrsDrew MrsDrew  17.02.2022 01:10
ранати ти ИНФОРМАТИКА «РОМАН» и «НОРМА» В квадратах на рисунках заполните пустые клетки буквами H, 0, P, M, А так, чтобы в каждой строке, в каждом столбце и в каждой из...
bakinec001p08ngx bakinec001p08ngx  11.03.2019 19:40
Заданной последовательности целых чисел определите сумму элементов кратных 10! пример вот именно под типо по такой же системе которую щас напишу! program maximum; i,n,max:...
Кира11101010 Кира11101010  15.05.2020 00:43
одно короткое задание, НУ НЕ ПОЙМУ Я НУЖНО...

Популярные вопросы