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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
aidoqa
586 / 99 / 2
Регистрация: 08.02.2011
Сообщений: 839
#1

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

07.04.2011, 11:02. Просмотров 594. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В(I) присвоить 1 , если в первой строке массива есть хотя бы один отрицательный элемент , в противной случае B(I) присвоить 0 (Turbo Pascal):

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

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

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

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

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

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

5
DedBoroda
ComfyMobile
87 / 87 / 6
Регистрация: 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
586 / 99 / 2
Регистрация: 08.02.2011
Сообщений: 839
07.04.2011, 11:32  [ТС] #3
программа работает не могу проверить ctrl+f9
0
DedBoroda
ComfyMobile
87 / 87 / 6
Регистрация: 04.11.2010
Сообщений: 376
07.04.2011, 11:33 #4
Реализуй ввод данных. И вывод. Сможешь?
1
aidoqa
586 / 99 / 2
Регистрация: 08.02.2011
Сообщений: 839
07.04.2011, 11:50  [ТС] #5
напиши подобно пожалуйста ато я сомневаюсь
0
DedBoroda
ComfyMobile
87 / 87 / 6
Регистрация: 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
Привет! Вот еще темы с ответами:

В матрице столбцы, в которых есть хотя бы один отрицательный элемент, заменить нулями - Turbo Pascal
Здравствуйте! Задание в программе Паскаль на модуль. Написать код программы не применяя &quot;сложного кода&quot; .)) 1 В матрице А (mxn)...

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

В матрице А (mxn) столбцы, в которых есть хотя бы один отрицательный элемент, заменить нулями - Turbo Pascal
В матрице А (mxn) столбцы, в которых есть хотя бы один отрицательный элемент, заменить нулями.

Если в массиве есть хотябы один отрицательный элемент, то заменить все отрицательные элементы на t - Turbo Pascal
Дан массив t1,....,t20. Если в массиве есть хотябы один отрицательный элемент, то заменить все отрицательные элементы на t(ср) , иначе...


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

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

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