Найти последний отрицательный элемент массива, величина которого больше заданной...

July 2022 1 3 Report

Найти последний отрицательный элемент массива, величина которого больше заданной величины, возвести его в квадрат, и поставить на место предпоследнего элемента.

Answers & Comments

Gleb1Kosyrev

Verified answer

//Pascal ABC.NET 3.1 сборка 1219

Const
n=5;

Var
ar:array[1..n] of integer;
i,c,r,ri:integer;
begin
write('Введите число:');
readln(c);
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if (ar[i]>c) and (ar[i]<0) then
begin
ri:=i;
r:=ar[i];
end;
end;
ar[ri]:=sqr(ar[ri]);
ar[n-1]:=ar[ri];
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.

Пример ввода:
Введите число:-6
Array:
-1
2
-3
3
5
Пример вывода:
Final array:
-1 2 9 9 5

2 votes Thanks 2

Answers & Comments

Verified answer

najti graficheskoe reshenie sistemy uravnenij kotoraya sootvetstvuet vashemu varian

preobrazovat odnomernyj massiv elementy s tretego po vosmoj razdelit na posl

elementy massiva raspolozhit v poryadke vozrastaniya ih modulej

raspolozhit v poryadke vozrastaniya otricatelnye elementy massiva kratnye zadann

dany punkt naznacheniya i bilety vychislit kakaya stanciya polzuetsya naibolshej p

рекомендуемые вопросы

Helpful Links

Helpful Social