Ввести число с. определить, есть ли в массиве элемент, равный с. найти • номер первого такого элемента • номер последнего такого элемента вот моя программа. я не могу понять ошибку. она не показывает номер первого такого элемента. обнуляет его почему-то. var a: array[1..10] of integer; i, b, e, f, d, c: integer; begin d: = 1; f: = 1; write ('введите число c: '); readln (c); writeln; for i: = 1 to 10 do begin write('a[', i, '] = '); readln(a[i]); end; for i: = 1 to 10 do if a[i] = c then e: = e+1; writeln; if e > 0 then writeln ('в массиве нашлось число, равное с'); writeln; for i: = 1 to 10 do begin if (a[i] = c) then b: = i; if f > b then f: = b; end; writeln ('первое такое число a[', f, ']'); for i: = 1 to 10 do begin if (a[i] = c) then b: = i; if d < b then d: = b; end; writeln ('последнее такое число a[', d, ']'); end.
Ответы
Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
1)program p1;
var m,n: integer;
begin
write('вводите число: '); readln(n);
if n> =100 then
begin
m: = n mod 10;
writeln('последняя цира: ',m);
m: =n div 10 mod 10;
writeln('предпоследняя цира: ',m);
end;
end.
2)program p2;
var t1,t2,t3,d1,d2,d3,v1,v2,v3: integer;
vsr: real;
begin
write('вводите время езды(ч): '); readln(t1,t2,t3);
write('вводите скорость(км/ч): '); readln(v1,v2,v3);
d1: =v1*t1;
d2: =v2*t2;
d3: =v3*t3;
vsr: =(d1+d2+d3)/(t1+t2+t3);
writeln('средяя скорость= ',vsr: 1: 2,'км/ч');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
ЗА НЕВЕРНЫЙ ИЛИ ОТВЕТ НЕ СООТВЕТСТВУЮЩЕГО НА ВОПРОС, БАН!
Автор: pavelvsk2023
Ищу папика которые суинет мне денюжку
Автор: janepustu
Что может быть табличным текстовым центральным
Автор: Dimston134877
Что такое формальные языки и в чём их ОСОБЕННОСТЬ. ДАМ
Автор: vik1223
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.