Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
 
lek0n
0 / 0 / 0
Регистрация: 25.05.2014
Сообщений: 24
#1

Создать новый одномерный массив из массивов имеющих значение больше -5 - Pascal ABC

31.05.2014, 19:14. Просмотров 364. Ответов 15
Метки нет (Все метки)

Проверьте меня пожалуйста!
И помогите(Нужно создать новый одномерный массив из массивов имеющих значение больше -5)



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
31
32
33
34
35
36
37
program mass;
uses crt;
var B:array[1..8,1..8] of integer;
    i,j,k,p,max:       integer;
    s:                 real;
begin
clrscr;
writeln('Ввод и вывод двумерного массива');
randomize;
for  i:=1 to 8 do
     begin
     for j:=1 to 8 do
         begin
         B[i,j]:=random(120)-60;
         write(B[i,j]:4);
         end;
     writeln;
     end;
writeln();
 
writeln('опередили максимальный элемента столбца массива' );
max:=B[1,1];
for i:=1 to 8 do if max < B[i,1] then max:=B[i,1];
writeln('максимальный элемент:=',max);
writeln();
 
writeln(' Дополните предыщущаю программу таким образом ,чтобы она вычитала так же сумму элементов в каждой строке массива');
for i:=1 to 8 do
    begin
    k:=0;
    for j:=1 to 8 do
        k:=k+B[i,j];
    writeln('Результат:=',k) ;
    end;
 
 
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2014, 19:14
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создать новый одномерный массив из массивов имеющих значение больше -5 (Pascal ABC):

Создать новый одномерный массив из элементов матрицы, имеющих четное значение - Pascal ABC
Создайте новый одномерный массив из элементов двумерного массива имеющих четное значение Program P10; uses crt; Type Mas = array of...

Создать новый массив из элементов матрицы, имеющих значение, кратное минус трем - Pascal ABC
Заполните двумерный числовой массив М(7,7) случайными целыми числами в интервале . Выведите значения элементов массива в столбик, а затем в...

Создайте новый одномерный массив из элементов двумерного массива, имеющих нечетное значение - Pascal
Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в интервале . Вывести значения элементов...

Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем - Pascal ABC
Создать новый одномерный массив из элементов,стоящих в строках,номера которых кратны трем.

Получить новый массив y из тех элементов массива, значение которых больше (max+min)/2 - Pascal
Блок схему и программу Дан массив действ чисел z1...z20. Получить новый массив y из тех элементов массива значение которых больше...

Массив одномерный. Найти среднее арифметическое положительных элементов массива, значение которых больше K - Pascal
1) Массив размером N заполнен случайными числами.Найти среднее арифметическое положительных элементов массива значение которых больше K ...

15
Whisper119
33 / 33 / 14
Регистрация: 18.03.2014
Сообщений: 174
31.05.2014, 20:44 #16
незачто.
0
31.05.2014, 20:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2014, 20:44
Привет! Вот еще темы с ответами:

Создать новый одномерный массив, элементами которого являются элементы исходного, не превосходящие некоторого числа - Pascal ABC
Задачи на одномерные массивы 2 Из одномерного числового массива размерности n создать новый одномерный массив, элементами которого...

Создать одномерный массив из 13 элементов. Сколько элементов больше числа А - Pascal ABC
Ребят выручайте , дали задание ... а я не шарю. Создать одномерный массив из 13 элементов. Сколько элементов больше числа А (А вводится с...

Одномерный массив. Выбрать элементы, принадлежащие отрезку, и занести в новый массив. - Pascal ABC
Дано:одномерный массив а(n),n=10.выбрать из него элементы принадлежащие отрезку и занести в новый массив z.

Задан двумерный массив А(5, 6). Определить произведение отрицательных элементов, имеющих сумму индексов, больше заданного числа Р. - Pascal
Помогите плз решить задачку по массивам. 1.Задан двумерный массив А(5, 6). Определить произведение отрицательных элементов, имеющих...


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

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

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