Var
i, k, n: integer;
a: array[1..10000]of integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
readln(k);
for i := 1 to n do
if (a[i] = k) then
begin
write(i);
exit;
end;
write('0');
end.
Ничего не видно. Сфоткай еще раз
Уже писала, но напишу еще раз. Указывайте на каком языке программирования нужно писать программу.
program ff;
var
y,x:real;
begin
writeln('Введите x');
readln(x);
if x>=2 then
y:=sin(x)/sqr(x)
end;
if x<2 then
begin
y:=(x+8)/(x-2);
end;
writeln('y=',y);
readln();
end.
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>