help

Массив М10 состоит из 7 элементов вещественного типа. Разработать программу создания массива и последующей замены каждого отрицательного элемента цифрой 5.

М10= { 14;-3;9;6;-1;8;-4 }
вот этот над

delphi

 

эм,массив одномерный я так понял,консоль или gui?

 

Code:

цикл( переменная = 0 до 6 с шагом 1 ) {
     если( М10[ переменная ] менше 0 ) {
          новыйМассив[ переменная ] = 5;
          континью;
     }
     новыйМасси[ переменная ] = M10[ переменная ];
}

 

не расстраивайся, я тоже делфи не знаю ))

 

на

Code:

program Project2;

{$APPTYPE CONSOLE}
var m10:array[1..7]of integer;
i,n:integer;
begin
writeln('Ishodnyi massiv');
for i:=1 to 7 do
m10[1]:=14;
m10[2]:=-3;
m10[3]:=9;
m10[4]:=6;
m10[5]:=-1;
m10[6]:=8;
m10[7]:=-4;
for i:=1 to 7 do
write(m10[i]:4);
readln;
n:=m10[1];
for i:=2 to 7 do
if m10[i]>=n then n:=m10[i];
for i:=2 to 7 do
if m10[i]<0 then m10[i]:=5;
writeln('noviy massiv');
for i:=1 to 7 do
write(m10[i]:4);
readln;



end.

 

DooD, от души мужжжик)))

 

Не за что