Landajurus
5 год назад
Паскаль. Массив состоит из 20 положительных и отрицательных целых чисел выбранных случайно. Выведите исходный массив.А затем в отдельных строчках положительныеэлементы массива с указанием порошкового номера и отрицательные элементы массива с указанием порядкового номера. ОЧЕНЬ НУЖНО! СРОЧНО!
ОТВЕТЫ
Kiro
Oct 24, 2020
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
// Индексация с нуля, поэтому i+1 в выводе
begin
var a:= ArrRandom(20,-10000,10000);a.Println;
Writeln('Положительные');
for var i:= 0 to 19 do
if a[i] > 0 then
Writeln(i + 1,' -> ', a[i]);
Writeln();
Writeln('Отрицательные');
for var i:= 0 to 19 do
if a[i] < 0 then
Writeln(i + 1,' -> ', a[i]);
end.
// Внимание! Если программа не работает, обновите версию!
// Индексация с нуля, поэтому i+1 в выводе
begin
var a:= ArrRandom(20,-10000,10000);a.Println;
Writeln('Положительные');
for var i:= 0 to 19 do
if a[i] > 0 then
Writeln(i + 1,' -> ', a[i]);
Writeln();
Writeln('Отрицательные');
for var i:= 0 to 19 do
if a[i] < 0 then
Writeln(i + 1,' -> ', a[i]);
end.
378
Смежные вопросы:
