RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197142: Здравствуйте! У меня возникли сложности с таким вопросом:Поменять местами самый правый максимальный элемент с предпоследним элементом массива, а затем умножить на найденное максимальное значение элементы, стоящие с первого по найденный номер максимального. ... Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Вычислить сумму квадратов чисел, не меньших заданного U и
Дата отправки: 14.11.2019, 11:06 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, kondrat322! Код (Pascal) :: выделить код const
n=20;
var
a:array[1..n]of integer;
b,c,d,e:integer;
begin
for b:=1 to n do
begin
a[b]:=random(50);
writeln(a[b]);
end;
writeln;
write('enter U:=');readln(c);
d:=0;
e:=0;
for b:=1 to n do
if((b mod 4) =0)and(c<=a[b])then
begin
d:=d+a[b]*a[b];
inc(e);
end;
writeln('summa:=',d,' count:=',e);
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:Поменять местами самый правый максимальный элемент с предпоследним элементом массива, а затем умножить на найденное максимальное значение элементы, стоящие с первого по найденный номер максимального.
Дата отправки: 19.11.2019, 17:08 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код const
n=20;
var
a:array[1..n]of integer;
b,c:integer;
begin
{create and show array}
for b:=1 to n do
begin
a[b]:=random(2*n)-n;
write(a[b]:5);
end;
writeln;
{find maximum}
c:=1;
for b:=2 to n do
if a[c]<=a[b]then c:=b;
writeln('rigth max a[',c,']:=',a[c]);
{change}
b:=a[c];
a[c]:=a[n-1];
a[n-1]:=b;
{show result}
for b:=1to n do write(a[b]:5);
writeln;
{product}
for b:=1to c do a[b]:=a[b]*a[n-1];
{show result}
for b:=1to n do write(a[b]:5);
writeln;
writeln;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
