Нахождение числа строк матрицы, в которых есть отрицательные элементы - Turbo Pascal

  1. помогите пожалуйста решить задачи в турбопаскале , буду очень признателен)) 1)составить программу нахождения числа строк двумерного массива A(N,N), в которых есть отрицательные элементы. 2)составить программу заполнения одномерного массива случайными числами в диапозоне от 0 до 12 с выводом результируюшего массива на экран и нахождения индекса элемента равного 6 (если такого элемента нет то вывести диагностическое сообщение на экран). 3)Матрицу A(n, n) сформировать по следующему принципу: по диагонали расположены единицы, выше диагонали-нули, а элементы, расположенные ниже диагонали, равны сумме соответствующих индексов.


textual

Код к задаче: «Нахождение числа строк матрицы, в которых есть отрицательные элементы - Turbo Pascal»

const n=5;
var a:array [1..n,1..n] of integer;
i,j,k:integer;
f:boolean;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(200)-50; write(a[i,j]:5);
end;
writeln;
end;
for i:=1 to n do
begin
f:=false;
for j:=1 to n do
 
if a[i,j]<0 then begin f:=true; break;end;
if f then k:=k+1;
end;
writeln('chislo...',k);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.800 из 5



Похожие ответы
  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. Здравствуйте! Есть проблема при вычислении остатка от деления. Нужно вычислить a^b mod t При этом, например a=226 b=91 t=3827 Были поптытки вычислить сначала a^b, потом от результата mod t. Но a^b не влазит ни в один тип данных. Подскажите пожалуйста, как мне посчитать этот остаток.

  1. помогите пожалуйста написать программу,которая найдет все натуральные числа,меньше чем MAXINT, такие ,что они равны сумме факториалов цифр,из которых состоят. пример: 145=1!+4!+5!

  1. Даны два действительных числа. замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в противном случае. Напишите код программы и составьте блок-схему.

  1. Напишите подпрограмму на нахождение средне арифмитического. С помошью этой подпрограммы найти количество чисел, которые выше средне арифмитического из ряда чисел заданных с клавиатуры , заканчиваюшихся -777. Помогите пожауйста с не простой задачей.

  1. Вводится какое-то число n, к примеру, 2473, а программа должна поменять порядок следования цифр таким образом, чтобы получилось максимальное возможное из этих цифр число(в данном случае - 7432). Количество цифр в числе n должно находится автоматически или вводится с клавиатуры.

  1. Вывести на экран первые четыре числа, кратные s и больше x. Натуральные числа s и x пользователь вводит с клавиатуры.

  1. Выручайте. На этом форуме неправильное решение

  1. Цикл с параметром Выяснить, сколько раз входит в состав натурального числа цифра 3