Напишите и объясните программу, которая в последовательности целых чисел находит и выводит количество положительных и количество отрицательных чисел. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит а последовательность) количество чисел не превышает 1000. введенные числа по модулю не превышают 1000

167

481

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

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

olykylak2551

Информатика

4,4(66 оценок)

pascalabc.net

begin

// последовательность целых чисел вводится с клавиатуры

// пока не будет введен 0 (который не войдет в нее).

// затем последовательность преобразуется в массив (toarray)

// нужного размера, который сохраняется с именем a

var a : = readseqintegerwhile(p -> p < > 0).toarray;

// заведем счетчики для количества положительных kp и

// отрицательных kn элементов и обнулим их

var (kp, kn) : = (0, 0);

// просматриваем в цикле массив. на каждом шаге p будет обозначать

// очередной элемент массива

foreach var p in a do

if p > 0 then // если элемент положительный

kp += 1 // добавим 1 в счетчик положительных

else if p < 0 then // если элемент отрицательный

kn += 1; // добавим 1 в счетчик отрицательных

// осталось вывести результаты

writeln('положительных чисел ', kp, ', отрицательных ', kn)

end.

lizabatyshkina

Информатика

4,7(85 оценок)

Ну сам код достаточно простой: //pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) begin var n : = readinteger('размер массива: '); var a : = arrrandom(n, -50, 50); println(a); var min : = a[0]; for var i : = 0 to n - 1 do if (i mod 2 = 0) and (a[i] < min) then min : = a[i]; println('минимальное на четных номерах =', min); end. ну а "спецификация", как я понял список всех элементов массива выводятся процедурой println(a)