yakostik
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program n1;
{Создать двумерный массив В, имеющий четыре строки и пять столбцов с
помощью генератора случайных чисел от -5 до 30 и вывести на экран
монитора номера отрицательных элементов массива, если таких нет,
то сообщать об этом.}
uses crt;
const
ln=4;
St=5;
var
b:array [1..St,1..ln] of integer;
i,j:integer;
flag:boolean;
function MyRandom:integer;
begin
if random(5)=3 then MyRandom:=random(5)-random(5)
else
MyRandom:=random(30);
end;
begin
randomize;
flag:=false;
for i:=1 to ln do
begin
writeln;
for j:=1 to st do
begin
b[j,i]:=MyRandom;
write(b[j,i]:3,' ');
end;
end;
writeln;
writeln('------------------');
writeln;
for i:=1 to ln do
for j:=1 to st do
begin
if b[j,i]<0 then
begin
if flag=false then write('Nomera otricatelnyh elementov ');
write(' Str:',i,' Sto:',j,'|');
flag:=true;
end
end;
if flag=false then writeln('Otricatelnyh elementov net');
end. |
Всего записей: 408 | Зарегистр. 30-03-2006 | Отправлено: 16:51 14-09-2008 | Исправлено: yakostik, 20:23 14-09-2008 |
|
