Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Пармезан Черница

В массиве A найти максимальный отрицательный элемент и заменить его значением первого нулевого элемента

более месяца назад
Просмотров : 36    Ответов : 1   

Лучший ответ:

Program vladimir37005;
const n=5;
var a:array[1..n] of integer;   
     i,min,k:integer;
begin

for i:=1 to n do begin
write('a[',i,']=');
read(a[i]);
end;

min:=a[1]; k:=1; 
for i:=1 to n do
if (A[i] < min) 
then begin 
min:=A[i];
k:=i; 
end; 

for i:=1 to n do
if (a[i] < 0) and (a[i] > min) 
then begin 
min:=a[i];
k:=i;
end;

a[k]:=0;

for i:=1 to n do
write(a[i],' ');

end.

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы:




Зачетный Опарыш
Несколько вопросов по обществознанию. 3 вопроса. 1.На какие виды делятся малые группы? 2.Что такое групповые нормы? как они влияют на положение человека в группе? 3.Что такое групповой эгоизм? как человек реагирует на групповое давление?
более месяца назад
Смотреть ответ   Просмотров : 36    Ответов : 1