Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Получить новую матрицу путем деления всех элементов на наибольший по модулю элемент https://www.cyberforum.ru/ pascalabc/ thread1391735.html
Дана матрица с размерностью m*n, заполненная случайными числами в диапазоне . Получить новую матрицу путем деления всех элементов на наибольший по модулю элемент. помогите, пожалуйста.... 		Найти значение функции Pascal ABC
Помогите сделать программу на Паскаль с условным оператором: Для данного действительного x найти значение следующей функции f, принимает действительные значения: f (x) = -x, если x ≤ 0, x2, если 0 <x <2, 4, если x ≥ 2.
Pascal ABC Вычислить сумму элементов матрицы, индексы которых меньше числа Z https://www.cyberforum.ru/ pascalabc/ thread1391673.html
Помогите с задачкой, пожалуйста. Дан двумерный массив. Вычислить сумму элементов матрицы, индексы которых меньше числа Z(число Z вводится с клавиатуры). 		Pascal ABC Отсортировать текст, расположив слова согласно алфавиту Задание: Отсортировать текст, расположив слова в алфавитном порядке, и вывести результат в новый файл (считать, что a=1, b=2, c=3, …, z=26, а = 27, б = 28, в = 29, …я = 59). Мои мысли: const N = 20; var str: array of string; s: string; i, j: integer; https://www.cyberforum.ru/ pascalabc/ thread1391594.html
Используя подпрограммы, найти наибольший угол треугольника АВС Pascal ABC
Найти наибольший угол ( в градусах) треугольника АВС , заданного координатами своих вершин .заранее спасибо 		Pascal ABC Подпрограммы: найти наибольшую медиану треугольника, по известным координатам вершин Найти наибольшую медиану треугольника , если известно координаты его вершин .Помогите решить . Заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread1391536.html
Pascal ABC Подпрограммы: зная координаты вершин четырехугольника, найти его периметр https://www.cyberforum.ru/ pascalabc/ thread1391533.html
Зная координаты вершин четырехугольника найти его периметр. Помогите сделать задачу . Заранее спасибо. 		Pascal ABC Дан многострочный текстовый файл, посчитать количество гласных и согласных букв в этом файле
дан многострочный текстовый файл посчитать кол-во гласных и согласных букв в этом файле
Pascal ABC Составить программу для вычисления составной (сложной) функции Задание: используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции, имеющей различный вид на разных участках аргумента Все исходные данные, необходимые для проведения вычислений, вводить с клавиатуры. Функция y=\begin{cases}\cos x+\operatorname{tg}x & \text{, } -1\leq x< -0.5\\ 2\,\arcsin x+1.4 & \text{, } -0.5\leq x<0.5\\... https://www.cyberforum.ru/ pascalabc/ thread1391296.html Pascal ABC Определить, есть ли в последовательности хотя бы одно число, кратное 7 помогите срочно в паскалеАВС!!! Дана непустая последовательность целых чисел, оканчивающаяся числом -1. Определить, есть ли в последовательности хотя бы одно число, кратное 7. В случае положительного ответа определить порядковый номер первого из них. https://www.cyberforum.ru/ pascalabc/ thread1391170.html
Pascal ABC Установить, является ли последовательность цифр числа упорядоченной
помогите срочно в паскалеАВС!!! Дано натуральное число. Установить, является ли последовательность его цифр при просмотре их справа налево упорядоченной по возрастанию. Например, для числа 5321 ответ положительный, для чисел 7820, 9663 - отрицательный. 		Pascal ABC Вывести в файл номера школ и средний балл Последнее задание в Pascal . :( Решение задачи должно содержать подпрограммы формирования исходного файла и вывода на экран содержимого файлов обоих типов. Формирование нового файла по заданию оформить в виде не менее одной подпрограммы. Файл типа А - текстовый , типа В - типизированный. Имеется список учеников разных школ, сдавших экзамен по информатике, с указанием их фамилии, имени,... https://www.cyberforum.ru/ pascalabc/ thread1391082.html
Модератор
9870 / 5238 / 3306
Регистрация: 17.08.2012
Сообщений: 16,007
10.03.2015, 17:23 0

Найти количество нулевых элементов массива, стоящих на четных и нечетных местах соответственно - Pascal ABC - Ответ 7322563

10.03.2015, 17:23. Показов 2012. Ответов 2
Метки (Все метки)

Ответ

Лишние операторные скобки и ";". Не ошибка, но лучше так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

var 
  mas: array [1..100, 1..100] of integer;
  i, j: integer;
  n, m, ch, nch: integer;
begin
  ch:=0; nch:=0;
  repeat
    write('Введите n:'); read(n)
  until n in [1..100];
  repeat
    write('Введите m:'); read(m)
  until m in [1..100];
 
  for i:=1 to n do
    for j:=1 to m do
      begin
        write('mas[',i,',',j,'] = '); read(mas[i,j])
      end;
 
  writeln;
 
  for i:=1 to n do
    begin
      for j:=1 to m do write(mas[i,j]:3);
      writeln
    end;
 
  writeln;
 
  for i:=1 to n do
    for j:=1 to m do 
      if mas[i,j]=0 
        then if j mod 2 = 0 
          then inc(ch)
          else inc(nch);
 
  write('На четных местах - ', ch, ', на нечетных - ', nch)
end.


Вернуться к обсуждению:
Найти количество нулевых элементов массива, стоящих на четных и нечетных местах соответственно Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.03.2015, 17:23
Готовые ответы и решения:

Найти количество нулевых элементов массива, стоящих на четных и нечетных местах
Заполнить матрицу m*n с клавиатуры. Найти количество нулевых элементов массива, стоящих на четных и...

Найти количество чётных элементов массива, стоящих на нечётных местах
Вроде сделал правильно. Проверьте. program z; var a:array of integer; i,k:integer; begin...

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
дан массив (B) из (N) элементов.Найти сумму и кол-во четных элементов стоящих на нечетных местах

Найти количество нулевых элементов, стоящих на четных местах
Дан массив элементов длины N. Найти: 1. Количество нулевых элементов, стоящих на четных местах.

2
10.03.2015, 17:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 10.03.2015, 17:23
Помогаю со студенческими работами здесь

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Задан одномерный массив из 17 целых элементов, заполненый случайным образом в диапазоне от 7 до...

Найти сумму и количество четных элементов массива, стоящих на нечетных местах
Найти сумму и количество четных элементов массива Р(13), стоящих на нечетных местах

Определите количество нечетных элементов массива, стоящих на четных местах
Написать программы и составить блок схемы к задачам: 3. Дан массив А(n). Определите количество...

Сосчитать количество четных элементов массива, стоящих на нечетных местах.
Сосчитать количество четных элементов массива, стоящих на нечетных местах. В двух вариантах- с...

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все элементы, стоящие на...

Найти сумму всех нечетных элементов массива, стоящих на четных местах
Здравствуйте! Помогите, пожалуйста, решить задачу: Найти сумму всех нечетных элементов массива,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru