===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var i := a.IndexMin;
Println('Минимальный элемент', a[i], 'имеет номер', i + 1)
end.
Проверить число на четность можно по-разному в зависимости от языка.
Например в Паскале А div 2 или Odd(A)
Общую блок-схему см. на фото
#include<iostream>
using namespace std;
int main() {
int a;
cin >> a;
cout << "Периметр: "<< (a*4) << "\nПлощадь: " << a*a;
}
#include <iostream>
using namespace std;
int main()
{
for(int i = 10; i < 100; i++)
{
if(i/10 == 2*(i%10))
cout << i << " ";
}
return 0;
}
Пример на С++
Но если надо на другом языке, то суть такова:
1)запускаешь цикл от 10 до 99(все двузначные числа) со счетчиком i например
2)внутри условие если i деленный нацело на 10(1 цифра этого числа )равен удвоенному значению остатка от деления i на 10 ( последняя цифра числа в 2 раза больше 1 должна быть)
то на экран выводится это число i
Var x,y:integer;
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
<span>end.</span>