Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Салима
1

В массивах A(10) B(10) все элементы предшествующие первому нулевому элементу заменить на 0,5

25.02.2013, 12:54. Просмотров 906. Ответов 1
Метки нет (Все метки)


Прошу Вас, помогите!

Даны два массива A(10), B(10). В массивах A(10)b B(10) все элементы предшествующие первому нулевому элементу заменить на 0,5.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2013, 12:54
Ответы с готовыми решениями:

Элементы, предшествующие первому нулевому элементу, заменить на 0,5
даны два массива А(10), В(10). в массивах А(10) и В(10) все элементы предшествующие первому...

В массивах А(10) и В(10) все элементы, предшествующие первому нулевому элементу, заменить на 0,5
Здравствуйте. Не могли бы вы мне помочь? не могу составить программу на функции. Задача. Даны два...

Функции. массивах A(10) и B(10) все элементы предшествующие первому нулевому элементу заменить на 0,5
Доброе время суток...собственно вопрос таков:Даны два массива A(10), B(10). В массивах A(10) и...

Напечатать все элементы, предшествующие первому элементу с заданным значением n
1) Дан массив целых чисел: а)Напечатать все элементы, предшествующие первому элементу с заданным...

1
35 / 21 / 40
Регистрация: 25.02.2012
Сообщений: 170
25.02.2013, 13:53 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
var
a,b: array [1..10] of real;
i,n1,n2: byte;
begin
writeln('Заполните массив A:');
for i:=1 to 10 do
begin
readln(a[i]);
end;
writeln('Заполните массив B:');
for i:=1 to 10 do
begin
readln(b[i]);
end;
writeln('Введенный массив А:');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Введенный массив B:');
for i:=1 to 10 do
begin
write(b[i],' ');
end;
writeln();
for i:=1 to 10 do
if (a[i] = 0) then
begin
n1:=i;
break;
end;
for i:=1 to 10 do
if (b[i] = 0) then
begin
n2:=i;
break;
end;
for i:=n1 downto 1 do
begin
a[i]:=0.5;
end;
for i:=n2 downto 1 do
begin
b[i]:=0.5;
end;
writeln('Преобразованный массив А:');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Преобразованный массив B:');
for i:=1 to 10 do
begin
write(b[i],' ');
end;
writeln();
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2013, 13:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Все элементы вектора, предшествующие первому наименьшему элементу умножить на 10
Дан вектор A(n). Все элементы вектора, предшествующие первому наименьшему элементу умножить на 10,...

Напечать все элементы массива, предшествующие первому элементу с заданным значением
Дан массив целых чисел. Напечать все элементы, предшествующие первому элементу с заданным...

Все элементы вектора, предшествующие первому наименьшему элементу, умножить на 10 при выполнении заданного условия
1. Дан вектор A(n). Все элементы вектора, предшествующие первому наименьшему элементу умножить на...

Все элементы этого массива, предшествующие первому по порядку элементу со значением max(a1, ...,a10), умножить на этот максимальный элемент
Дан одномерный массив из а элементов. Все элементы этого массива, предшествующие первому по порядку...


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

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

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