Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
LastFr1day
0 / 0 / 5
Регистрация: 15.11.2015
Сообщений: 27
#1

создать массив 5*4,нужно дорешать - Turbo Pascal

10.12.2015, 21:12. Просмотров 131. Ответов 1
Метки нет (Все метки)

создать массив 5*4 целых чисел из диапазона [5;15] вывести его на экран. найти произведение и кол-во четных элементов последнего столбца. вот что самому удалось сделать помогите доделать. желательно конечно код.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const m=5;
      n=4;
var a:array[1..m,1..n]of integer;
    i,j,p:integer;
begin
randomize;
writeln('Матрица');
for i:=1 to m do begin
  for j:=1 to n do begin
    a[i,j]:=5+random(10);
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('произведение последнего столбца:');
  p:=1;
  if a[i,j] mod 2 = 0 then 
  p:=p*a[i,j];
  writeln(p);
end.
Добавлено через 8 минут
не тот код, вот он
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
const n=5; m=4;
  var
  a:array[1..5,1..4] of integer;
  i,j:integer;
  p:integer;
begin
  randomize;
  p:=1;
  for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        a[i,j]:=5+random(10);
        write(a[i,j]:4);
      end;
      writeln;
    end;
  writeln;
  for j:=1 to m do
    begin
    p:=1;
      for i:=1 to n do
          if i mod 2=0 then
          p:=p*a[i,4];
      write(p,' ');
    end;
  readln;
end.

http://www.cyberforum.ru/turbo-pascal/thread519681.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 21:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос создать массив 5*4,нужно дорешать (Turbo Pascal):

Нужно создать массив состоящий из единиц и нулей
Нужно создать такой массив состоящий из единиц и нулей, чтобы после ввода...

Дорешать.
препод говорит программа написна не полностью. помогиие пож. говорит нет ввода....

Двоичное дерево! Не могу дорешать...
Эта задача формирует двоичное дерево, выводит его на экран и находит...

Помогите дорешать задачу на While, !почти решена!
http://img5.imageshost.ru/imgs/339de4895b272cf3da74355f4bfac078/d7b382ab0ae0688e...

В файл записан квадратный массив, нужно прочитать главную диагональ не используя массив
в файл записан квадратный массив,нужно прочитать главную диагональ не используя...

1
simonscat
2 / 2 / 4
Регистрация: 28.10.2013
Сообщений: 53
10.12.2015, 21:17 #2
ты был близок, совсем чуть-чуть оставалось

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const m=5;
      n=4;
var a:array[1..m,1..n]of integer;
    i,j,p:integer;
begin
randomize;
writeln('Матрица');
for i:=1 to m do begin
  for j:=1 to n do begin
    a[i,j]:=5+random(10);
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('произведение последнего столбца:');
p:=1;
for i:=1 to m do
  if (a[i,4] mod 2) = 0 then p:=p*a[i,4];
  writeln(p);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 21:17
Привет! Вот еще темы с решениями:

Нужно, импортировать из файла в массив 16 значений, таких файлов много, вот нужно импортировать и отсортировать по возрастанию
что то у меня не получаеться Program abli; var a: file of integer; i: byte;...

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

Создать массив A(nxn). Сформировать одномерный массив из сумм каждого столбца матрицы.
1)Создать массив A(nxn). Сформировать одномерный массив из сумм каждого столбца...

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы
Распишите пожалуйста подробнее!!!


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

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

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