Ребят помогите пожалуйста решить задачку на турбо паскале Дан одномернный массив из 10 целых чисел.Вывести массив на экран в строчку.а так же вывести на экран номер первого элемента, равного нулю, и нуль при отсутсвии такого ...
Ребят помогите пожалуйста решить задачку на турбо паскале Дан одномернный массив из 10 целых чисел.Вывести массив на экран в строчку.а так же вывести на экран номер первого элемента, равного нулю, и нуль при отсутсвии такого элемента в массиве. Ниже приведен рекомендованный вид экрана во время выполнения программы, для самопроверки результата(данные, введенные пользователем, выделены полужирным шрифтом). Дан одномерный массив сотоящий из 10 элементов.Вывод на экрна номер первого элемента, равного нуляю, и нуль при отсутсвии такого элемента в массиве. Ввод элеентов массива Введите 1 элемент массива: 0 Введите 2 элемент массива: 1 и т.д. до 9 Очистка Экрана 0 1 2 3 4 5 6 7 8 9 НОмер нулевого элемента массива: 1
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
const N=10;
var
a : array [1..N] of integer;
i, k: integer;
begin
writeln('Ввод элементов массива: ');
for i:= 1 to N do
begin
write('Введите ',i,' элемент массива: ');
readln(a[i]);
end;
ClrScr;
k:=0;
for i:= 1 to N do
begin
if (a[i]=0) and (k=0) then k:=i;
write(a[i]:4);
end;
writeln;
if k=0 then writeln('Номер нулевого элемента массива: 0')
else writeln('Номер нулевого элемента массива: ',k);
readln;
end.
Гостьuses crt; var a:array [1..10] of integer; n,i:integer; begin for i:=1 to 10 do begin write ('Введите ',i,' элемент массива: ');readln(a[i]); end; clrscr; for i:=1 to 10 do write (a[i],' '); writeln; i:=0; repeat i:=i+1; if a[i]=0 then n:=i else n:=0; until (a[i]=0) or (i=10); if n<>0 then writeln ('Номер нулевого элемента массива: ',n) else writeln (0); readln; end.
Не нашли ответ?
Похожие вопросы