Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
aidoqa
587 / 100 / 2
Регистрация: 08.02.2011
Сообщений: 839
1

В(I) присвоить 1 , если в первой строке массива есть хотя бы один отрицательный элемент , в противной случае B(I) присвоить 0

07.04.2011, 11:02. Просмотров 619. Ответов 5
Метки нет (Все метки)

Дан массив A[5,5].построить массив В(5) по следующему правилу : В(I) присвоить 1 , если в первой строке массива есть хотя бы один отрицательный элемент , в противной случае B(I) присвоить 0. Заранее спасибо!!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2011, 11:02
Ответы с готовыми решениями:

Построить массив В(5) по следующему правилу: В(I) присвоить 1, если в 1-ой строке есть хотя бы один отрицательный элемент
Дан массив А. Построить массив В(5) по следующему правилу: В(I) присвоить 1,...

В массиве (А10) есть хотя бы один отрицательный элемент. Вычислить сумму элементов массива до первого отрицательного
В массиве (А10) есть хотя бы один отрицательный элемент. Вычислить сумму...

Если среди элементов массива есть элемент, равный В то переменной Х присвоить определенное значение
Дан массив А. Если среди элементов массива есть элемент, равный В то переменной...

Если в строке матрицы есть хотя бы один нулевой элемент, то найти произведение всех ненулевых элементов
Задана матрица Z(5,5). Если в строке есть хотя бы один нулевой элемент, то...

Определить, есть ли в некоторой строке массива хотя бы один элемент, равный заданному числу
Дан двумерный массив целых чисел. Составить программу: а)которая определяет,...

5
DedBoroda
ComfyMobile
87 / 87 / 8
Регистрация: 04.11.2010
Сообщений: 376
07.04.2011, 11:18 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a:array [1..5,1..5] of integer;
    b:array [1..5] of byte;
    f:boolean;
    i,j:integer;
begin
for i := 1 to 5 do
    begin
      f:=false;
      for j := 1 to 5 do if a[i,j] < 0 then f := true;
      if f then b[i] := 1 else b[i] := 0;
    end;
end.
1
aidoqa
587 / 100 / 2
Регистрация: 08.02.2011
Сообщений: 839
07.04.2011, 11:32  [ТС] 3
программа работает не могу проверить ctrl+f9
0
DedBoroda
ComfyMobile
87 / 87 / 8
Регистрация: 04.11.2010
Сообщений: 376
07.04.2011, 11:33 4
Реализуй ввод данных. И вывод. Сможешь?
1
aidoqa
587 / 100 / 2
Регистрация: 08.02.2011
Сообщений: 839
07.04.2011, 11:50  [ТС] 5
напиши подобно пожалуйста ато я сомневаюсь
0
DedBoroda
ComfyMobile
87 / 87 / 8
Регистрация: 04.11.2010
Сообщений: 376
07.04.2011, 11:58 6
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
var a:array [1..5,1..5] of integer;
    b:array [1..5] of byte;
    f:boolean;
    i,j:integer;
begin
randomize;
    for i := 1 to 5 do{Ввод произвольных значений в A}
      begin
        for j := 1 to 5 do
          begin
            a[i,j] := random(100)-random(25);
            write(a[i,j]:4);
          end;
          writeln;
      end;
 
    for i := 1 to 5 do
    begin
      f:=false;
      for j := 1 to 5 do if a[i,j] < 0 then f := true;
      if f then b[i] := 1 else b[i] := 0;
    end;
 
    for i := 1 to 5 do write(b[i]:2);{Вывод результирующего массива B}
    readln;
end.
2
07.04.2011, 11:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2011, 11:58

Из целочисленной матрицы A(n x m) получить вектор элементами которого будут TRUE , если в соответствующей строке есть хотя бы один ненулевой элемент
Из целочисленной матрицы A(n x m) получить вектор элементами которого будут...

В матрице столбцы, в которых есть хотя бы один отрицательный элемент, заменить нулями
Здравствуйте! Задание в программе Паскаль на модуль. Написать код программы не...

Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае
Проверьте, есть ли среди данных N чисел нули. Входные данные Вводится число...


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

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

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