Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Определить количество чисел кратных 2 Количество чисел вводимых с клавиатуры равно N. Определить количество чисел кратных 2. https://www.cyberforum.ru/ pascalabc/ thread1552438.html Pascal ABC Определить, есть ли в следующих текстах пустые операторы
1) Есть ли в следующих текстах пустые операторы? (Если есть, то отметьте в тетради под какими буквами.) а) if x>0 then x:=2 else; y:=x+1; б) if odd(k) then else k:=0; в) begin x:=2; y:=5; end; г) begin a:=true; ; b:=b or a end; д) begin if x=0 then goto 1; y:=x; 1:end Мне кажется, что а) и б) неправильные, так как после else должно что-то стоять. Также должно что-то стоять между then...
Pascal ABC В целочисленном массиве вычислить: количество элементов, кратных 3; сумму элементов с индексами, кратными 3 https://www.cyberforum.ru/ pascalabc/ thread1552405.html
Составить программу,которая в целочисленном массиве A вычисляет : a)Количество элементов,кратных 3 б)Сумму элементов с индексами,кратными 3 const n=22; var a:array of integer; k,i,s:integer; begin
Pascal ABC Перевести числа в их символьное представление Датчик случайных чисел генерирует числа от 0 до 255.Нужно перевести числа в их символьное представление.Остановка программы- появление символа "*".Сколько символов было напечатано.Помогите дальше uses crt; var i,a:integer; begin randomize; for i:=0 to 255 do begin https://www.cyberforum.ru/ pascalabc/ thread1552346.html
Pascal ABC Подсчитать суммы элементов массива с 1-го по 10-й
Само задание: В произвольном одномерном массиве из 30 элементов(массив сформировать и вывести) подсчитать суммы элементов с 1-го по 10-й, с 11-го по 20-й, с 21-го по 30-й и вывести массив этих сумм. Необходимо разбить программу на процедуры. Var x: Array of Integer; s: Array of Integer; i: Byte; sum: Integer; BEGIN Randomize;
Pascal ABC Перемещать круг вписанный в прямоугольник по вертикали с заданным шагом Перемещать круг вписанный в прямоугольник по вертикали с заданным шагом и задержкой в одну секунду. https://www.cyberforum.ru/ pascalabc/ thread1552202.html
Pascal ABC Подсчитать сумму положительных четных чисел, не превосходящих 344 Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных четных чисел, не превосходящих 344. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные... https://www.cyberforum.ru/ pascalabc/ thread1552152.html Pascal ABC Напишите программу, которая будет быстро и правильно производить конвертацию пароля
.Британские ученые выяснили, что чаще всего взламывают пароли, содержащие группы одинаковых подряд идущих символов, пробелы и звездочки, и гораздо реже пароли, содержащие многоточия..." Услышав эту новость, Вася крепко задумался: почти все его пароли попадают в группу риска!!! Для того чтобы исправить ситуацию, он решил конвертировать все свои пароли по следующему правилу: от группы одинаковых...
Pascal ABC Организация меню с использованием цикла repeat - until https://www.cyberforum.ru/ pascalabc/ thread1552075.html
С клавиатуры вводится сторона квадрата (куба). Организовать работу в соответствии с пунктами меню: 1. Периметр квадрата 2. Площадь квадрата. 3.Объем куба. 0. Выход. Помогите, пожалуйста, програму написать с помощью repeat- until. var d,b,a: integer; begin writeln ('Vvedite storony'); readln(a); writeln ('1 - PERIMETR KVADRATA'); writeln ('2 - PLOSHAD KVADRATA');
Pascal ABC Разбить число 1234 на слагаемые https://www.cyberforum.ru/ pascalabc/ thread1552071.html
Здравствуйте. как разбить число 1234 на слагаемые. Т.е 1234=1+2+3+4. Спасибо
Напишите программу, которая будет быстро и правильно производить конвертацию пароля Pascal ABC
4. Ох уж эти ученые... Имя входного файла input.txt Имя выходного файла output.txt Максимальное время работы на одном тесте 2 секунды Ограничение по памяти 64 МБ "...Британские ученые выяснили, что чаще всего взламывают пароли, содержащие группы одинаковых подряд идущих символов, пробелы и звездочки, и гораздо реже пароли, содержащие многоточия..." Услышав эту новость, Вася крепко...
Pascal ABC Выведите сколько денег стало у Васи 3. Уличная магия Имя входного файла input.txt Имя выходного файла output.txt Максимальное время работы на одном тесте 2 секунды Ограничение по памяти 64 МБ Вася заработал много денег. Вася обучался магии и решил за счет этого обогатиться. Он соединил все номиналы купюр в одну купюру, чем преумножил свой капитал. Наставник Васи узнал, чем он занимается, и решил его наказать. Он превратил... https://www.cyberforum.ru/ pascalabc/ thread1551992.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
14.10.2015, 21:37 0

Заполнить матрицу случайными числами и вывести на экран - Pascal ABC - Ответ 8195624

14.10.2015, 21:37. Показов 13799. Ответов 8
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const
    n = 10;//строки
    m=8;//столбцы
var
    a: array[1..n,1..m] of integer;
    i,j:integer;
begin
randomize;
for i := 1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    if(i mod 2=0)and(j mod 2=0) then textcolor(12)
    else textcolor(0);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.


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

Заполнить исходную матрицу случайными числами из диапазона от -50 до 50. Вывести матрицу на экран
Заполнить исходную матрицу случайными числами из диапазона от -50 до 50. Вывыести матрицу на экран....

Заполнить матрицу случайными числами и вывести на экран максимальный элемент
Написать матрицу 3х5 заполнить ее датчиком случайных чисел, вывести на экран, а потом вывести на...

Заполнить вектор из 20 элементов случайными числами в интервале [-15;10] и вывести его на экран.
Заполнить вектор из 20 элементов случайными числами в интервале и вывести его на экран. Найти...

Заполнить массив случайными числами и вывести на экран элементы, значения которых больше 5 и меньше 15
составьте программу, которая заполняет массив a случайными целыми числами в диапазоне от 1 до 20 и...

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

Заполнить одномерный массив m[n] случайными целыми числами от a до b и вывести его на экран.Значения a,b,c,d,n взять из таблицы.
Заполнить одномерный массив m случайными целыми числами от a до b и вывести его на экран.Значения...

Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными числами
Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными...

Заполнить массив случайными числами от 1 до 100, вывести массив на экран
1) Реализовать динамический массив целых чисел, заполнить его случайными числами от 1 до 100,...

Заполнить матрицу случайными числами и транспонировать ее
Заполнить двумерный массив 3x4 случайными целыми числами в диапазоне от 30 до 90. Вывести...

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