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

Pascal ABC

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

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

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

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


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

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

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

Массив: Все нечетные элементы увеличить на значение третьего элемента массива. - Pascal ABC
Дан массив K10. Все нечетные элементы увеличить на значение третьего элемента массива. Program s9; const n=10; var...

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

Увеличить все чётные числа массива на значение первого чётного числа - Pascal
Дан целочисленный массив размерности N. Увеличить все четные числа, содержащиеся в массиве, на значение первого четного числа. Если четные...

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

9
crachka
32 / 32 / 12
Регистрация: 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 / 1
Регистрация: 24.03.2011
Сообщений: 315
08.12.2011, 23:49 #4
soap777, у него тип массива целочисленный.Поменяй на вещественный,как в задании.
0
КонецСвета
Почетный модератор
7924 / 3894 / 940
Регистрация: 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 / 2
Регистрация: 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
КонецСвета
Почетный модератор
7924 / 3894 / 940
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Определить номер и значение первого элемента массива, большего числа M - Pascal
1.Дан массив F(n), n&lt;=15.Определить номер и значение первого элемента массива, большего числа M, предполагая , что такой элемент...

Удалить из массива все элементы, равные значению первого элемента. - Pascal
1.1. Дан линейный массив целых чисел. Удалить из массива все элементы, равные значению первого элемента массива. Сам первый элемент не...


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

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

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