Предмет: Информатика,
автор: negodal
написать программу заполняющую целочисленный массив из 10 элементов чтобы с 1 по 5 были положительными а с 6 по 10 отрицательными
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
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.
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.
Автор ответа:
0
Не знаю, у меня никогда таких проблем не возникало, и хотя, как вы сказали, мы живем мире относительно неограниченных ресурсов памяти, но злоупотреблять этим не хорошо, нужно учится экономить. Это мое мнение, может у вас другое :)
Автор ответа:
0
там экономия-то - дай бог 5 мб памяти ;)
Похожие вопросы
Предмет: Українська література,
автор: olya5736
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: kostjzuzonok
Предмет: Геометрия,
автор: Nastia0297