В массиве 4х4 действительных чисел найти количество нулевых наддиагональных элементов - Pascal ABC

  1. В массиве 4х4 действительных чисел найти количество нулевых наддиагональных элементов.


textual

Код к задаче: «В массиве 4х4 действительных чисел найти количество нулевых наддиагональных элементов - Pascal ABC»

program abc;
const 
n=4;
var i,k,s:integer;
mas:array [1..n,1..n] of integer;
begin
for i:=1 to n do
    for k:=1 to n do
       mas[i,k]:=random(10)-5;
s:=0;
for i:=1 to n do
   for k:=i to n do 
      if mas[i,k]=0 then
        s:=s+1;
writeln(s);
end.

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

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



Похожие ответы
  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. Дан прямоугольный массив целых положительных чисел. Отыскать в массиве строку с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.

  1. Даны действительные числа a1,...,a17. Получить: a11, a12,...,a17, a10, a9,...., a1;

  1. Напишите программу. В массиве слов найти пару слов,из которых одно является обращением другого.

  1. Формулируется так: Даны n символов, нужно подсчитать сколько раз в строке встречается произвольный символ(вводится с клавиатуры), через процедуру. Я написал такой код, знаю что не правильный. Не понимаю в чем ошибки, помогите исправить

  1. 2)Реализовать последовательный поиск в динамическом массиве целых чисел.

  1. Найти произведение элементов матрицы, находящихся ниже главной диагонали. Имя массива-R. Размер массива: 4,4. Тип данных - действительный. Заполнена матрица должна быть рандомно (randomize) числами от 0 до 50.

  1. Задачка с виду не сложная, а загнала в тупик Дан одномерный целочисленный массив A(N). Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы.

  1. Дан массив символов, в котором встречаются структуры и . Заменить каждое вхождение на , а каждое вхождение на <#>. Замечание: в программе следует учесть, что буква i может быть как строчной, так и прописной. Желательно расписать какая команда что выполняет.

  1. В двумерном массиве вычислить произведение элементов в К-столбце