Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
soap777
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 37
1

Все члены массива меньше первого элемента массива, увеличить на его значение.

08.12.2011, 23:20. Просмотров 466. Ответов 9
Метки нет (Все метки)

1) В матрице a[3,9] найти произведение положительных элементов во всех нечётных столбцах.Если таких элементов нет, то на печать выдать соответствующие сообщение....(желать ещё блок схема ну это не так важно)
2) Тип массива - вещественный
Число элементов 8
Все члены массива меньше первого элемента массива, увеличить на его значение.


(ЗАРАНЕЕ СПАСИБО!) =)
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 23:20
Ответы с готовыми решениями:

Все члены массива с четными номерами домножить на значение индекса максимального элемента
Дан Массив целых чисел А. Все члены массива с четными номерами, предшествующие...

Все элементы массива, значение которых меньше среднего арифметического, увеличить в К раз
Дан массив A (N). Все элементы, значение которых меньше среднего...

Массив: Все нечетные элементы увеличить на значение третьего элемента массива.
Дан массив K10. Все нечетные элементы увеличить на значение третьего элемента...

Все положительные элементы массива умножить на значение первого элемента
Дан массив а(10). Все положительные элементы массива умножить на значение...

Увеличить все чётные числа массива на значение первого чётного числа
Дан целочисленный массив размерности N. Увеличить все четные числа,...

9
crachka
32 / 32 / 30
Регистрация: 25.11.2011
Сообщений: 43
08.12.2011, 23:29 2
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var a:array [1..8] of integer;
    i:integer;
begin
clrscr;
for i:=1 to 8 do
read(a[i]);
for i:=2 to 8 do
if a[i]<a[1] then
a[i]:=a[i]+a[1];
for i:=1 to 8 do
write(a[i],' ');
readln;
end.
0
soap777
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 37
08.12.2011, 23:46  [ТС] 3
спасибо за вторую)

Добавлено через 10 минут
только либо я дурак или она что то не работает)
0
kkk008009kkk
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
08.12.2011, 23:49 4
soap777, у него тип массива целочисленный.Поменяй на вещественный,как в задании.
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
08.12.2011, 23:51 5
работает, так что...
0
Миниатюры
Все члены массива меньше первого элемента массива, увеличить на его значение.  
soap777
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 37
08.12.2011, 23:53  [ТС] 6
write(a[i],' ');
в этой строчки всё норм?
0
abcpascal
5 / 5 / 6
Регистрация: 26.11.2011
Сообщений: 51
08.12.2011, 23:54 7
Цитата Сообщение от soap777 Посмотреть сообщение
write(a[i],' ');
в этой строчки всё норм?
Да. говорят же тебе. все работает
0
soap777
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 37
08.12.2011, 23:55  [ТС] 8
спасибо всё работает) только мне нада первую решить)
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
09.12.2011, 00:02 9
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
uses crt;
var a:array [1..3,1..9] of integer;
    i,j,p,k,r:integer;
begin
writeln('1-чтобы ввести массив врчную');
writeln('0-чтобы сгенерировать массив');
readln(r);
if r=1 then
begin
for i:=1 to 3 do
    for j:=1 to 8 do
        begin
        write('a[,',i,']=');
        readln(a[i,j]);
        end;
end else
        for i:=1 to 3 do
            begin
            for j:=1 to 9 do
                begin
                a[i,j]:=random(19)-9;
                write(a[i,j]:4);
                end;
            writeln;
            end;
p:=1;
for i:=1 to 3 do
    for j:=1 to 9 do
        if (a[i,j]>0) and (j mod 2=1) then
           begin
           p:=p*a[i,j];
           inc(k);
           end;
if k=0 then writeln('нет положительных элементов в нечетных столбцах')
   else writeln('Произведение = ',p);
end.
0
soap777
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 37
09.12.2011, 00:07  [ТС] 10
спасибо) хороший сайт)
0
09.12.2011, 00:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2011, 00:07

Положительные элементы после первого отрицательного элемента массива увеличить на модуль суммы отрицательных
Ввести одномерный массив A , вывести его. Найти номер первого отрицательного...

Заменить все элементы массива, поделив их на значение наибольшего элемента массива
Дан массив A. Найти наибольший элемент. Заменить все элементы массива, поделив...

Элементы строк матрицы увеличить на значение максимального элемента массива
Дан двумерный массив а, содержащий Н строк и M столбцов. Элементы строк,...


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

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

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