Напишите программу на Паскале, которая вводит и печатает массив из 10 целых чисел, вводит целое число К и выводит номер элемента массива, который равен числу К или выводит 0, если в массиве нет числа, равного К.
Даю 20 баллов
Ответы
Ответ дал:
0
Program fantscrin;
Var a: array [1..10] of integer;
i,k,g:integer;
Begin
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
write(a[i], ' ');
writeln('');
write('К = '); readln(k);
g:=0;
for i:=1 to 10 do
if(a[i] = k) then g:=i;
writeln(g);
End.
Ответ дал:
0
Если Вам не сложно...Помогите мне тоже, пожалуйста.... Я Вас оочень прошу...( https://znanija.com/task/30950478
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад