Файл: Определить, одинаковое ли кол-во положительных и отрицательное элементов размещены над и под главной диагональю.

@helpplzz · Регистрация: 28.05.2019

Author24 — интернет-сервис помощи студентам

Из файла F прочитать матрицу S(10,10) и определить одинаковое количество соответственно положительных и отрицательных элементов размещенных над и под главной диагональю

@Joy · 30.05.2019, 07:56

Pascal

program calc_elem;
const n=10;
var
  f:file of integer;
  a:array[1..n,1..n] of integer;
  i,j,aa,ab,ac,ad:integer;
begin
  AssignFile(f,'f');
  reset(f);
  writeln('Matrix:');
  for i:=1 to n do begin
    for j:=1 to n do begin
      read(f,a[i,j]);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  CloseFile(f);
  //под главной диагональю
  aa:=0;ab:=0;
  for i:=1 to n do
    for j:=1 to i-1 do
      if a[i,j]<0 then aa:=aa+1 else ab:=ab+1;
  //над главной диагональю
  ac:=0;ad:=0;
    for i:=1 to n do
      for j:=i+1 to n do
        if a[i,j]<0 then ac:=ac+1 else ad:=ad+1;
     writeln('Positive elements over the main diagonal:',ad);
     writeln('Positive elements under the main diagonal:',ab);
     writeln('Negative elements over the main diagonal:',ac);
     writeln('Negative elements under the main diagonal:',aa);
  readln;
end.

Добавлено через 48 секунд
файл создавал так:

Pascal

program gen_matrix_into_file_f;
const n=10;
var
  i,j:integer;
  f:file of integer;
begin
  randomize;
  AssignFile(f,'f');
  rewrite(f);
  for i:=1 to n do
    for j:=1 to n do
      write(f,random(101)-50);
  CloseFile(f);
end.

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

@helpplzz 0 / 0 / 0 Регистрация: 28.05.2019 Сообщений: 4
		1
	Файл: Определить, одинаковое ли кол-во положительных и отрицательное элементов размещены над и под главной диагональю. 29.05.2019, 23:26. Показов 417. Ответов 1 Метки нет (Все метки) Из файла F прочитать матрицу S(10,10) и определить одинаковое количество соответственно положительных и отрицательных элементов размещенных над и под главной диагональю 0

	29.05.2019, 23:26