Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
krack666
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 13
1

Задачка на одномерный массив

14.05.2009, 09:33. Просмотров 416. Ответов 4
Метки нет (Все метки)

Дан одномерный массив из 10 элементов.Заменить первый отрицательный элемент нулем.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2009, 09:33
Ответы с готовыми решениями:

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

Задачка на массив
Помогите пожалуйста с задачкой. Результаты игры по футболу хранятся в...

Задачка на двумерный массив
3) в прямоугольной матрице размером L*M, имеющей имя Matr содержаться целые...

Про массив задачка
На массивы вооще не могу решать задачи помогите! Во входном файле дана...

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

4
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
14.05.2009, 09:40 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a:array[1..10] of integer;
      i:integer;
      l:boolean;
begin
 clrscr;
writeln('Vvedite elementi ');
 for i:=1 to 10 do
  readln(a[i]);
l:=false;
i:=0;
repeat
 i:=i+1;
 if a[i]<0 then
  begin
   l:=true;
   a[i]:=0;
  end;
until(l=true)or(i>=10);
for i:=1 to 10 do
 write(a[i],' ');
readln;
end.
0
PozZziTiW
3 / 3 / 0
Регистрация: 10.05.2009
Сообщений: 17
14.06.2009, 19:04 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program massiv;
uses crt;
var b  :array [1..10] of integer;
    i,n:integer;
begin
     write('vvedite koli4estvo elementov:');
     readln(n);
     for i:=1 to n do begin
        write('vvedite b[i]');
        readln(b[i]);
     end;
     for i:=1 to n do begin
        if (b[i])<0 then
           b[i]:=0
     end;
     Writeln('Vash rezultat:');
     for i:=1 to n do
        write(b[i],' ');
        readln;
clrscr;
end.
0
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
14.06.2009, 19:09 4
for i:=1 to n do begin
if (b[i])<0 then
b[i]:=0
Ну и заменишь все отрицательные на ноль. А нужно только первый.
0
Shved
9 / 9 / 1
Регистрация: 07.06.2009
Сообщений: 34
14.06.2009, 20:17 5
for i:= 1 to 10 do
if b[i]<0 then
begin
b[i]:=0
break;
end;


И никаких проблем!
0
14.06.2009, 20:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2009, 20:17

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы
Распишите пожалуйста подробнее!!!

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i]
Дан одномерный массив, получить другой массив той же размерности, каждый...


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

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

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