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

Определить число элементов одномерного массива предшествующих его первому нулевому элементу

19.12.2015, 12:50. Просмотров 730. Ответов 4
Метки нет (Все метки)

Составить процедуру для определения числа элементов одномерного массива предшествующих его первому нулевому элементу
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2015, 12:50
Ответы с готовыми решениями:

Массив. Найти сумму и количество элементов, предшествующих первому нулевому элементу.
Дан массив А(10).Найти сумму и количество элементов, предшествующих первому нулевому...

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому...

Найти среднее арифметическое элементов предшествующих первому отрицательному элементу
найти среднее арифмитическое элементов предшествующих первому отрицательному элементу. чёт у меня...

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

4
36 / 36 / 72
Регистрация: 31.10.2014
Сообщений: 206
19.12.2015, 15:05 2
qwerff,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Const n=10;
Type arr =  array [1..n] of integer;
Var A : arr;
    i, k : integer;
 
procedure proc1(A : arr; var k : integer);
begin
k:=0;
While (k<=n) and (A[k]<>0) do inc(k);
Dec(k);
end;
 
begin
Randomize;
For i:=1 to n do A[i]:=random(10);
Writeln('Array A:');
For i:=1 to n do Write(A[i]:4);
Writeln;
proc1(A, k);
Writeln('k=', k);
Readln;
end.
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
19.12.2015, 15:37 3
Mazilo,
Pascal
8
k:=1;
Pascal
20
if k<10 then Writeln('k=', k) else writeln('нулевых элементов нет');
1
36 / 36 / 72
Регистрация: 31.10.2014
Сообщений: 206
19.12.2015, 16:44 4
vint-81,
Pascal
1
k:=1;
Если первый элемент нулевой, значит перед ним нет ни одного. Поэтому
Pascal
1
k:=0;
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
19.12.2015, 16:48 5
у Вас массив [1..n] и если k:=0; в следующей строке получите проверку:
While (k<=n) and (A[k]<>0) do inc(k);
a[0]<>0 - индекс выходит за границу массива...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2015, 16:48

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

Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального числа записать 10
Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального...

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

Прибавить к каждому элементу одномерного массива заданное число, найти сумму всех элементов полученного массива
Program qq; Var i,k:integer; a:array of integer; begin for i:=1 to 10 do read(a); read(k) for...

Найти количество элементов массива, предшествующих наибольшему элементу массива
Дан массив X(N). Найти количество элементов массива, предшествующих наибольшему элементу массива. ...


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

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

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