Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
TurboPascal2013
0 / 0 / 0
Регистрация: 24.02.2013
Сообщений: 6
1

Заполнить двумерный массив размера 5 на 6 случайными числами

13.04.2013, 11:29. Просмотров 1166. Ответов 2
Метки нет (Все метки)

Задали задачку,

Заполнить двумерный массив размера 5 на 6 случайными числами. Вывести его на экран и определить количество четных элементов

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

Заполнить двумерный массив случайными числами
Задача на Паскале: Заполнит двумерный массив размерностью 6*6(константы)...

Заполнить двумерный массив случайными числами
Задача на Паскале: Заполнит двумерный массив размерностью N*M(константы)...

Заполнить двумерный массив случайными неповторяющимися числами без использования множеств
Заполнить двухмерный массив случайными не повторяющимися чмслами. вся загвоздка...

Дан двумерный массив A[5,6]. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму наибольшего
Дан двумерный массив A. Заполнить его случайными числами в промежутке от 30 до...

Заполнить матрицу размера М*N случайными числами. Вычислить сумму минимального и максимального элементов матрицы.
Помогите пожалуйста

2
Nimo
34 / 25 / 15
Регистрация: 06.12.2012
Сообщений: 144
13.04.2013, 13:49 2
Лучший ответ Сообщение было отмечено TurboPascal2013 как решение

Решение

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
    Program Massiv;
    Uses CRT;
 
    Const
        MAX1 = 5;
        MAX2 = 6;
 
    Type
        TMas = Array[1..MAX1,1..MAX2] Of Integer;
 
    Var
        Mas : TMas;
        R, K, Check : Integer;
 
    Begin ClrScr; Randomize;
 
    Check := 0;
    For K := 1 To MAX1 Do Begin
      For R := 1 To MAX2 Do Begin
         GoToXY(R*3,K*3);
        Mas[K,R] := Round(Random*10+1);
         If (Mas[K,R] mod 2 = 0) Then Inc(Check);
        Writeln(Mas[K,R]);
      End;
    End;
 
    Writeln;
    Writeln('4etnih elementov : ', Check);
    Readln;
    End.
0
TurboPascal2013
0 / 0 / 0
Регистрация: 24.02.2013
Сообщений: 6
14.04.2013, 18:08  [ТС] 3
Не могли бы облегчить решение задачи , это для школьника . Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2013, 18:08

Заполнить массив А(n,m) целыми случайными числами
Помогите решить,очень надо.Заполнить массив А(n,m) целыми случайными числами...

Заполнить массив случайными числами из отрезка (0,В)
Заполнить массив случайными числами из отрезка (0,В)

Как заполнить массив случайными числами -20 до 20
Может кто подсказать как завести в массив случайные числа от -20 до 20 ???оч...


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

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

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