31.01.2010, 22:18
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
С нами:
9273261
Репутация:
8
|
|
Сообщение от a1ertso
Нужно сделать задачу, даю 100 WMR.
На делфи, консольная.
В массиве V(n,n) элементы строки, содержащей наибольший элемент, заменить на s:
Вот немного набросал:
PHP код:
program MAX_ZAMEN;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n2=10;
type
ar=array[1..n2] of real;
i2:integer;
Begin
Writeln('vvedite ',n2,' veschestvenyu elementov');
for i2:=1 to 5 do begin
readln(A2[i2]);
readln(B2[i2]);
end;
for i2:=1 to 10 do
if (i2 mod 2=0) then
c2[i2]:=B2[i2];
for i2:=1 to 10 do
writeln(C2[i2]:0:4);
READLN;
readln;
end.
omg - наибольший элемент проблемма найти?
x:=a[1];
for i:=2 to n do
begin
if x<a[2] then x:=a[i];
end;
for i:=1 to n do
begin
if x=a[i] then a[i]:=s;
end;
собственно и всё
|
|
|