1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
a[i] := random(10);
write (a[i], ' ')
end;
writeln;
writeln('b:');
for i:=1 to 8 do
begin
b[i] := a[i]*a[i];
write (b[i], ' ')
end;
end.
Пример:
<span>a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49
2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
a[i] := random(50)+10;
write (a[i], ' ')
end;
writeln;
for i:=1 to 9 do
if a[i] mod 2 = 0
then writeln(a[i], ' - четное число')
else writeln(a[i], ' - нечетное число')
end.
Пример:
a:
55 51 18 35 33 56 15 56 47
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число </span>
Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
Ответ 3, так как он поднялся 1 раз, спустился 2, по условию подходит
"Паскалей" различных много. Массивы тоже бывают разные. В вопросе ничего не детализировано, поэтому речь пойдет об одномерных массивах.
1. Турбо (Борланд) Паскаль. Массив - статический, в нем последний элемент не нужно определять, поскольку его индекс известен по описанию массива.
2. Borland Delphi, Free Pascal. Статические массивы - все как и в Турбо Паскаль. Но есть и динамические массивы, индексируемые от нуля, поэтому индекс последнего элемента в них равен количеству элементов минус единица. Можно пользоваться функцией Length(a), возвращающей текущее количество элементов в массиве.
3. PascalABC.NET 3.3. Действительно все, что написано выше. И добавочно можно написать a.Length вместо Length(a).
