31.01.2010, 21:34
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
С нами:
8633638
Репутация:
0
|
|
Нужно сделать задачу, даю 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.
|
|
|