Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Составить одномерный массив B из номеров строк матрицы, в которых есть хотя бы одно нечетное число Здравствуйте. Помогите пожалуйста написать программу для этих двух задач. 1. Дан двумерный целочисленный массив A(M,N). Составить одномерный массив B из номеров строк этого массива, в которых есть хотя бы одно нечетное число. https://www.cyberforum.ru/ pascalabc/ thread771146.html	Pascal ABC Изобразить на экране движение снаряда, выпущенного из пушки с определённой скоростью изобразить на экране движение снаряда,выпущенного из пушки с определённой скоростью(по желанию пользователя) при столкновении с землёй должен произойти взрыв,лучше,со звуковым эффектом Надо решение,правильно в паскале изобразить Заранее спасибо Добавлено через 46 секунд в паскале
Pascal ABC Каждые три последовательных элемента массива составлены по следующему правилу https://www.cyberforum.ru/ pascalabc/ thread771137.html Сформулируйте и выведите на экран массив из девяти элементов каждые три последовательных элемента которого составлены по следующим правилу : 1-й равен квадрату текущего индекса, увлеченному на 3. 2-й равен случайному двузначному числу. 3-й равен сумме двух предыдущих элементов, уменьшенной на 12.	Pascal ABC Увеличить все отрицательные элементы на 7 https://www.cyberforum.ru/ pascalabc/ thread771133.html Задана последовательность из 10 целых случайных двузначных чисел. Увеличить все отрицательные элементы массива на 7
Pascal ABC Даны действительные числа х, ε (x ≠ 0, ε > 0). Вычислить с точностью ε Даны действительные числа х, ε (x ≠ 0, ε > 0). Вычислить с точностью ε: Сделайте, люди добрые) Мне через 6 часов сдавать уже. С меня спасибки.	Pascal ABC В центре экрана из элемента окружность в графике нарисуйте большую букву У 1.В центре экрана из элемента окружность в графике нарисуйте большую букву У. Спасибо огромное заранее!!! Прошу помочь) https://www.cyberforum.ru/ pascalabc/ thread770996.html
Pascal ABC Используя операцию умножения, получить A В ВОСЬМОЙ СТЕПЕНИ за три операции https://www.cyberforum.ru/ pascalabc/ thread770995.html 2 . Дано вещественное число A. Используя операцию умножения, получить A В ВОСЬМОЙ СТЕПЕНИ за три операции Спасибо огромное заранее!!! Прошу помочь)	Pascal ABC Расположить элементы заданной строки матрицы по убыванию ввести двумерный массив m на n, ввести номер строки и распол. элементы строки по убыванию
Pascal ABC Дан двумерный массив вставить в него строку из чисел 100 после строки с номером s https://www.cyberforum.ru/ pascalabc/ thread770975.html uses crt; var a:array of integer; s,n,m,i,j:byte; begin writeln('Êîëè÷åòñâî ñòðîê'); read(n); writeln('Êîëè÷åòñâî ñòîëáöîâ'); read(m); clrscr; for i:=1 to n do	Pascal ABC Составьте программу, которая находит произведение чисел кратных 2 и 5 в диапазоне от 30 до 70 https://www.cyberforum.ru/ pascalabc/ thread770947.html Составьте программу, которая находит произведение чисел кратных 2 и 5 в диапазоне от 30 до 70 самыми простыми командами!! Спасибо огромное заранее!!! Прошу помочь)
Pascal ABC Задача, про километры и футы Известны два расстояния одно в километрах, другое- в футах (1фут=0,45 м). Какое из расстояний меньше?	Pascal ABC Как найти y[max] https://www.cyberforum.ru/ pascalabc/ thread770817.html Вот я сделал массив но мне в нём надо найти y(max)=max(y), а номер элемента -переменной К. Помогите плиз. Program mas; var x: array of real; y,z:array of real; ymax: integer; max: real; i,j,n,m,a: integer; S,P: real;

Kodzaev

3030 / 1916 / 1649

Регистрация: 30.04.2011

Сообщений: 3,060

25.01.2013, 13:36

Написать программу, которая в матрице чисел A(N,M) находит все элементы, превышающие по абсолютной величине заданное число B - Pascal ABC - Ответ 4051331

25.01.2013, 13:36. Показов 3823. Ответов 2

Метки (Все метки)

Сообщение было отмечено Вовик Регби как решение

Решение

Pascal

Var
  b,i,j,n,m,t: Integer;
  a: Array[1..10,1..10] of Integer;
  y: Array[1..100] of Integer;
BEGIN
Writeln('Введите размеры матрицы:');
Readln(n,m);
Randomize;
Writeln('Матрица: ');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    a[i,j]:=Random(51)-25;
    Write(a[i,j]:5);
  end;
  Writeln
end;
Write('Введите число B: ');
Readln(b);
For i:=1 to n do
begin
  For j:=1 to m do
  If Abs(a[i,j])>b Then
  begin
    Inc(t);
    y[t]:=a[i,j];
  end;
end;
Writeln('Массив:');
For i:=1 to t do
Write(y[i],' ');
Writeln;
Writeln('Кол-во элементов = ',t);
END.

Вернуться к обсуждению:
Написать программу, которая в матрице чисел A(N,M) находит все элементы, превышающие по абсолютной величине заданное число B Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.01.2013, 13:36

Готовые ответы и решения:

В матрице чисел найти все элементы, превышающие по абсолютной величине заданное число
Написать программу, которая в матрице чисел A(N,M) находит все элементы, превышающие по абсолютной...

В матрице найти все элементы, превышающие по абсолютной величине заданное число
Написать программу, которая в матрице чисел A(N,M) находит все элементы, превышающие по абсолютной...

Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры. Подсчитать число таких элементов
Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с...

Написать программу, которая находит максимальный по абсолютной величине элемент
Люди умные, у меня тут еще есть одна задачка в которой я не совсем все понимаю цель:формирование...

	25.01.2013, 13:36

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.01.2013, 13:36

Помогаю со студенческими работами здесь

Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры
Выручайте 2. Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные...

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

Найти в матрице все элементы, превышающие по абсолютной величине заданное число B
Написать программу, которая в матрице чисел A(N,M) находит все элементы, превышающие по абсолютной...

Наверх