Определите информационный обьем имени антон.задали по информатике ,

Question

Информатика: Определите информационный обьем имени антон.задали по информатике ,

Люсик20 · Accepted Answer

Var a: array [1 .. 10] of integer;
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.

Ввести число с. определить, есть ли в массиве элемент, равный с. найти • номер первого такого элемен

Ввести число с. определить, есть ли в массиве элемент, равный с. найти • номер первого такого элемен

MOGZ ответил