Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Nastya97
0 / 0 / 0
Регистрация: 17.12.2012
Сообщений: 4
1

Вывести массив на экран подсчитав количество нулей

17.12.2012, 03:21. Просмотров 990. Ответов 1
Метки нет (Все метки)

2. В массиве порядка N, записаны числа 0 и 1 так, что на и над главной диагональю лежат единицы, а под ней нули. Вывести данный массив на экран подсчитав количество нулей.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2012, 03:21
Ответы с готовыми решениями:

Сгенерировать и вывести на экран массив 10x10 из нулей и единиц
Сгенерировать и вывести на экран массив 10x10 из нулей и единиц так, чтобы нулей было в несколько...

Подсчитать и вывести на экран количество N и номера таких столбцов, в которых нулей больше чем единиц
Матрицу М(12, 10) заполнить нулями и единицами случайным образом. Подсчитать и вывести на экран...

Данная строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы, состоящие только из нулей
Данная строка, состоящая из групп нулей и единиц. Каждая группа отделяется друг от друга одним или...

Массив: Найти и вывести на экран количество чисел больше 2...
Дан массив А(7). Найти и вывести на экран количество чисел больше 2 . Просьба помочь с...

Элементы одномерного массива и их количество вводятся пользователем. Вывести массив на экран
Элементы одномерного массива и их количество вводятся пользователем. Вывести массив на экран. Найти...

1
Zhexon
312 / 271 / 272
Регистрация: 25.09.2011
Сообщений: 477
17.12.2012, 09:07 2
Лучший ответ Сообщение было отмечено Nastya97 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const max=19;
var
  a : array[1..max,1..max] of byte;
  i,j,n,k : byte;
Begin
  write('input n [2..',max,'] : '); readln(n);
  writeln('massiv:'); k:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      if j<i then begin
        a[i,j]:=0;
        inc(k);
      end else a[i,j]:=1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln(k,' nuley.');
  readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2012, 09:07

Напечатать строки, имеющие нечетную длину, подсчитав их количество
3. Дано текстовый файл, разбитый на строки. Напечатать строки, имеющие нечетную длину, подсчитав их...

В последовательности чисел выбрать все четные, подсчитав их количество и сумму
В последовательности числе выбрать все четные,подсчитав их количество и сумму. Нечетные числа...

Дан одномерный целочисленный массив X размерности 12, x ε [-20,20]. Вывести на экран все неотрицательные элементы массива их количество
Дан одномерный целочисленный массив X размерности 12, x ε . Вывести на экран все неотрицательные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru