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

Необходимо переделать программу

16.05.2010, 19:22. Просмотров 278. Ответов 1
Метки нет (Все метки)

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

Для каждого ряда матрицы найти написать количество элементов значение которых не превышает число Z

а мне нужно:

Для каждого столбца матрицы найти написать количество элементов значение которых не превышает число Z

Вот готовая программа для первого задания:
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 lab_5;
uses crt;
VAR
A:array[1..20,1..20] of integer;
i,j,n,k,m,z:integer;
begin
clrscr;
writeln('':10,'Robota z dvjvumirnumu masuvamu');
writeln('':8,'Laboratjrnarobota 5,');
write('Rozmirnict masuvy n=');readln (n);
write('Rozmirnict masuvy m=');readln (m);
write('Chuslo z=');readln(z);
writeln('Vedit masuv');
writeln;
FOR i:=1 to n do
FOR j:=1 to m do
begin
write ('A[',i,',',j,']=');readln (A[i,j]);
end;
k:=0;
FOR i:=1 to n do
FOR J:=1 to m do
if A[i,j]>z then
begin
k:=k+1
end;
writeln('kilkict elementiv=',k:4);
writeln('Programa roboty zakinchula');
readkey;
end.

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2010, 19:22
Ответы с готовыми решениями:

Необходимо переделать прогу что б в ней присутствовали процедуры
Необходимо переделать задачу что б в ней присутствовали процедуры ...

Переделать программу
Написать программу: 15 декабря всемирный день чаепития по введенному году...

Переделать программу.
Помогите переделать программу. Задание: Нужно записать двухмерный массив...

Переделать программу в функцию
Программа переводит из 10 сс в любую сс Не могу переделать в функцию: ...

как переделать программу
Помогите переделать программу используя цикл repeat Начав тренировки,...

1
Alexey22
0 / 0 / 0
Регистрация: 16.05.2010
Сообщений: 5
18.05.2010, 15:50  [ТС] #2
ну помогите пожалуйста
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2010, 15:50

Нужно переделать программу
Нужно переделать. Условие задачи : Сделайте, какой можете 1-С массивами ...

Переделать программу с использованием типов
Задание: найти сумму элементов между 1 и последним нулевым элементом программа...

Нужно переделать программу с процедурой.
program pr1; var a:array of integer; i,j:integer; procedure...


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

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

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