231 вот вроде послеыждцбадв
Нет, это запрещено уставом! Можешь нажаловаться.
Формула указана не ясно в задании, я указал в ответе так как оно более менее смотрится понятно, но вам стоит уточнить. Что до алгоритма, то он выглядит вот таким вот образом. Внимание, первый член данного ряда считается за 0, вам стоит так же уточнить у преподавателя, в задании этого явно не указано, но зачастую такое значение традиционно.
Ошибки в вашем алгоритме:
1. У вас условие k < 0, это значит, что если будет введено k = 0, то алгоритм отработает, но 0 членов быть не может, это не имеет смысла.
2. Цикл у вас выводит значение n-го члена после каждой итерации, а не единожды.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "спасибо" (:
1)var a:array [1..10] of integer;
i,c:integer;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]>9) and (a[i]<100) then c:=c+1;
end;
writeln;
write('Количество двузначных элементов: ',c);
end.
2)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if a[i]<= min then
begin
min:=a[i];
c:=i;
end;
end;
writeln;
write('Номер последнего минимального элемента: ',c);
end.
3)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]mod 5=0) and (a[i]<min) then min:=a[i];
end;
writeln;
if min<200 then write('Минимальный элемент,кратный 5: ',min) else write('Нету такого элемента.');
end.
