В ячейку А1 записать 1
В ячейку А2 записать формулу: "=A1+2"
Далее выделить ячейки с A2 по A500 и выбрать Главная - Заполнить -Вниз или нажать <Ctrl + D>, то есть скопировать формулу из A2 во все нижние ячейки
//Проверил. Да, равно.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
i,s:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
if ar[i]>0 then s:=s+ar[i];
end;
writeln;
write('Result:',s);
end.
Пример работы программы:
Array:
3 -7 0 9 -9 6 -1 0 1 0 -7 9 -9 -5 -8
Result:28
В) одним байтом; или я что то не поняла!
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
Var a,b,c: real;
Begin
Writeln ('введите a,b,c');
Readln (a,b,c);
If a+b=c then writeln (a,' + ',b,' = ', c) else
If a+c=b then writeln (a,' + ',c,' = ',b) else
If b+c=a then writeln (b,' + ',c,' = ',a) else writeln ('нет такого числа');
End.