Нужно сделать блок-схему, алгоритм и написать программу QBasic
Задача - Найти произведение однозначных положительных цифр. (это циклический алгоритм) цифры - 1,2,3...9

Var a,b,i,c,: longint; begin read(a); c: =1; for i: =1 to a do begin read(b); if b< 10 and b> 0 then s: =c*b; end; write(c); end.

Program pr_1;
a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.

#include<iostream>
using namespace std;
int main(){
int N;
cin>>N;
int * arr = new int [N];
for(int i=0;i<n;i++){
cin>> arr[i];
if (arr[i]<0) arr[i]-=5; else arr[i]=i+1;
}
for(int i=0;i<n;i++) cout<< arr[i]<<;
delete arr;
return 0;
}
это с++

Емли теле 2,то подключай тариф "крутой"))