RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 198408: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Сформировать массив из 10 элементов, элементы которого равны удвоенному значению их индекса, а пятый и десятый элементы равны нулю. pascal... Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 27.04.2020, 13:54 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Ericsson! Код (Pascal) :: выделить код const
n=10;
var
a:array[1..n]of integer;
b,c,r:integer;
begin
for b:=1 to n do
begin
a[b]:=random(2*n+1)-n;
write(a[b]:3)
end;
writeln;
repeat
write('emter R:=');
readln(r);
until(-n <r)and(r<n);
c:=0;
write('index:');
for b:=1 to n do
if a[b]>r then
begin
inc(c);
write(b:3);
end;
writeln;
writeln('result:=',c);
end.Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 27.04.2020, 13:58 Консультирует puporev (Профессор): Здравствуйте, Ericsson! Код (Pascal) :: выделить код const n=10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
if i in [5,n] then a[i]:=0
else a[i]:=2*i;
write(a[i]:3);
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
