beginvar n := 0;while (not TryRead(n,'Введите количество чисел:')) or (n<0) do Writeln('неверный ввод');Writeln; if n=0 then Write('Чисел нет') else begin var a := ReadArrInteger('Введите числа:',n); Println('Сумма:',a.Sum); Println('Произведение:',a.Product); end end.
Задание 2:
uses GraphABC, ABCObjects; beginWindow.SetSize(300,200); var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2); var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2); OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end; end.
Задание 1:
beginvar n := 0;while (not TryRead(n,'Введите количество чисел:')) or (n<0) do Writeln('неверный ввод');Writeln; if n=0 then Write('Чисел нет') else begin var a := ReadArrInteger('Введите числа:',n); Println('Сумма:',a.Sum); Println('Произведение:',a.Product); end end.Задание 2:
uses GraphABC, ABCObjects; beginWindow.SetSize(300,200); var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2); var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2); OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end; end.Задание 3:
beginWriteln(' I: X:');SeqGen(10,x->Random(0,20)*5).Numerate.PrintLines(x->Format('{0,2} {1}',x[0],x[1])) end.Примеры работ:
#include <iostream>
#include <vector>
typedef long long ll;
using namespace std;
ll n;
vector<ll> a,res;
void solve(int x){
ll l = 0,r = n-1,ans = -1;
while(l <= r){
bool ok = false;
ll m = (l+r)/2;
if(a[m] > 0)
ok = true;
if(ok && x == 1){
ans = m;
r = m - 1;
}
else if(!ok && x == 1)
l = m + 1;
if(ok && x == 2){
ans = m;
l = m + 1;
}
else if(!ok && x == 2)
r = m - 1;
}
if(ans >= 0)
a[ans]--;
res.push_back(ans+1);
}
signed main(){
cin >> n;
a.resize(n);
for(ll &i:a)
cin >> i;
ll k;
cin >> k;
cout << "1 если ближе и 2 если дальше" << "\n";
while(k--){
int x;
cin >> x;
solve(x);
}
for(auto &i: res){
if(i == 0)
cout << "Не сядет, мест нет" << " ";
else cout << i << "й ряд " << " ";
}
}