Задание 1 ( ). Составьте программу на Паскале для заполнения массива из 100 чисел случайными значениями из диапазона от -25 до 25. Подсчитайте в этом массиве количество положительных и количество отрицательных чисел.

Задание 2 ( ).

Заполните случайными числами в диапазоне от 1 до 20 два массива: А[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают.

Например, если А[2] = 8, В[2] = 8, то на экран надо вывести:

Номер: 2 значение: 8.

Если таких совпадений нет, то вывести на экран сообщение об этом.

В отчет включить тексты программ, результат работы программы в виде скриншота с отображением кода и результата.

281

431

Посмотреть ответы 2

Ответы на вопрос:

раф15рус

Информатика

4,6(59 оценок)

ответ на 1

begin

var a := ArrRandom(100, -25, 25);

a.Println;

Writeln;

var пол := a.Count(p -> p > 0);

var отр := a.Count(p -> p < 0);

Write('положительных ', пол, ', отрицательных ', отр)

end.

Объяснение:

хз , получится или нет.

задание 9 класса

31Maks31

Информатика

4,5(49 оценок)

Яизучал скрипты на курсах, в 5 классе, но вроде бы так: < script> n1=prompt("введите первое число","") n2=prompt("введите второе число","") sum = parseint(n1) + parseint(n2); // или parselfloat(n1)+parselfloat(n2) alert("сумма чисел равна "+s); < /script> или можно через переменные, но у вас как я понял должен быть запрос на