Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
1 / 1 / 1
Регистрация: 14.05.2012
Сообщений: 15
1

Найти произведение тех элементов матрицы, которые кратны L

14.05.2012, 19:46. Просмотров 741. Ответов 1
Метки нет (Все метки)


задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L.

мой код :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n=9;
         l=3;
var a:array [1..n,1..l] of integer;
i,j,s:integer;
begin
 for i:=1 to n do
  for j:=1 to l do
   a[i,j]:=random(100);
   writeln ('дан массив');
 for i:=1 to n do
  begin
   for j:=1 to l do
    write (a[i,j]:3);
    writeln;
    end;
    begin
   if a[i] mod L = 0 then s:s*a[i]
    end;
    writeln;
    writeln ('произведение чисел кратных L',s);
 readln;
end.
пишет несовпадение типов (type mismatch) и указывает на выделенную строку (подчеркивает знак "="). помогите исправить ошибку пожалуйста

Добавлено через 1 час 11 минут
там в выделенной строке после s "равно" пропущено было-исправил но ошибка осталась.

Добавлено через 52 минуты
просьба модераторам удалить эту тему
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2012, 19:46
Ответы с готовыми решениями:

Найти произведение элементов массива целых чисел, которые кратны 7
Найти произведение элементов массива целых чисел, которые кратны 7. Размерность массива – 15....

Вычислить произведение тех элементов матрицы, которые больше Е, но меньше Н
Помогите пожалуйста Вычислить произведение тех элементов матрицы, которые больше Е, но меньше Н (E...

Найти произведение только тех из элементов последовательности, которые больше заданного числа М
Ребята помогите с задачаей, в Паскале полный ноль, а препад мозг уже полностью вынес, прошу вашей...

Двумерный массив. Найти произведение тех элементов, которые кратны заданному
задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L. мой код : ...

1
113 / 113 / 42
Регистрация: 02.05.2012
Сообщений: 524
Записей в блоге: 1
15.05.2012, 00:00 2
ошибка была в том, что S = 0 ?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2012, 00:00

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

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

Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р.
Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р....

Определить в файле произведение остатков от деления на 4 тех элементов, которые не кратны четырём
Ввести файл F из 13 элементов. Определить в нём произведение остатков от деления на 4 тех...

Определить в матрице произведение остатков от деления на 4 тех элементов, которые не кратны четырем
ребят, помогите пожалуйста решить задачку. Ввести двумерный массив А (3x5) . Определить в нем...

Определить в матрице произведение остатков от деления на 4 тех элементов, которые не кратны четырем
ребят, помогите пожалуйста решить задачку. Ввести двумерный массив А (3x5) . Определить в нем...

Определить в массиве произведение остатков от деления на 4 тех элементов, которые не кратны четырем
Помогите пожалуйста написать программы к задачам. Я понимаю что на форуме много подобных задач, но...


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

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

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