Опубликовано 5 лет назад по предмету Информатика от negodal

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

Ответ

Ответ дан preceptor

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.
Ответ

Ответ дан affeqt

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.
1. Ответ
  
  Ответ дан preceptor
  
  Не знаю, у меня никогда таких проблем не возникало, и хотя, как вы сказали, мы живем мире относительно неограниченных ресурсов памяти, но злоупотреблять этим не хорошо, нужно учится экономить. Это мое мнение, может у вас другое :)
2. Ответ
  
  Ответ дан affeqt
  
  там экономия-то - дай бог 5 мб памяти ;)

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают