1 пример.
Program zadacha; здесь путем ввода в программе будь-то
вручную через строку команды read(a);
Var a:Integer;
Begin
a:=155;
End.
2 пример. А здесь объявить константой.
Program zadacha2;
Const a=155;
Begin
Write(a);
End.
Че то подчеркнуть надо ???
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
var k := n div 2;
if n.IsEven then
a := a[k:] + a[:k]
else
a := a[k + 1:] + Arr(a[k]) + a[:k];
a.Println
end.
#include <iostream>
using namespace std;
int main()
{
<span> int a[15];
</span><span> int i = 0;
</span><span> int sum = 0;
</span><span> for (; i < 15; i++)
</span> cin >> a[i];
for (i = 14; (i != 0) && (a[i]>0); i--) <span>
sum += a[i];</span>
cout << "i = " << i+1 << endl;
<span> cout << "summa = " << sum << endl;
</span><span> return 0;
</span><span>}</span>
1
2
3
4
5
6
7
8
9
<span>uses
Arrays;
begin
Randomize;
var a := CreateRandomIntegerArray(ReadLnInteger('Размер массива: n='), -10, 100);
WriteLn('Создан массив случайных чисел: '); a.Writeln(' ');
for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0;
WriteLn('произведена замена: '); a.Writeln(' ');
end.</span>