Ichigo2 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору uses crt;  const n=10;  var a:array[1..n,1..n] of integer;  sm:integer;  i,j:byte;  begin  clrscr;  randomize;  Writeln('Matrica:'); sm:=1;  Writeln('Matrica:');  for i:=1 to n do    begin      for j:=1 to n do        begin         a[i,j]:=Random(100)-50;         write(a[i,j]);  write(' ');         if (j>i)and(a[i,j]<0) then sm:=sm*a[i,j];        end;      writeln;    end;  write('Summa=',sm);  readln;  end. Всего записей: 153 | Зарегистр. 01-05-2011 | Отправлено: 14:06 14-01-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование