Написать программу заполняющую целочисленный массив из 10 элементов чтобы с 1 по 5 были положительными а с 6 по 10 отрицательными

Question

Информатика

Костяня

11 мая, 20:11

Написать программу заполняющую целочисленный массив из 10 элементов чтобы с 1 по 5 были положительными а с 6 по 10 отрицательными

+2

Ответы (2)

Знаете ответ?

Ратибор · Answer 1

Program task;

var i:longint;

a:array [0 ... 1000] of longint;

begin

for i:=1 to 5 do

a[i]:=random (100) ;

for i:=6 to 10 do

a[i]:=random (100) - 100;

end.

Сашура · Answer 2

Program Zadacha;

Var a: Array [1 ... 10] of Integer;

i: Integer;

Begin

Randomize;

For i : = 1 To 5 Do

a[i] : = Random (10) ;

For i : = 6 To 10 Do

a[i] : = Random (10) - 10;

WriteLn ('Результат:') ;

For i : = 1 To 10 Do

WriteLn (a[i]) ;

ReadLn;

End.