Укажите какие значения соответствуют элементам массивам program 1; var a: array [1.5] of integer; i:…

Известны значения элементов одномерного массива

Const a: array [1.5] of integer = ( 2, 3, -6, 4, 3).

Заполните таблицу по образцу и определите значение a [a[5]].

вопрос только в определении значения, оно будет равно 3?

Чему будут равны элементы массива A после выполнения цикла, если сначала массив был заполнен так:

А) for i:=1 to N-1 do

A[i]:= A[i+1];

Б) for i:=N downto 2 do

A[i]:= A[i-1];

В) for i:=2 to N do

A[i]:= A[i-1]*2;

Расположите в правильном порядке строки программы:

1) S:=a*h;
6) var a,b,h,p,s: integer;
2) end.
7) readln;
3) program pr;
Writeln(‘p=’,p,’ s=’,s);
4) p:=(a+b)^2;
9) a:=5;b:=8;h:=3;
5) begin

2. Установите соответствие между служебными словами и названиями разделов программы:
а) Var а) Раздел операторов
b) Program b) Раздел имени программы
c) Uses c) Раздел описания переменных
d) Begin …end d) Раздел описания библиотечных модулей

3. Определите значение переменной a после выполнения алгоритма:
а := 8
b := 2
b := a/2*b
a := 2*а + 3*b
В ответе укажите одно целое число — значение переменной a.

4.Запишите значение переменной y, полученное в результате работы следующей программы.
var y, i: integer;
begin
y := 0;
for i := 1 to 3 do
y := y + 4 * i;
writeln(y);
end.

5.Запишите значение переменной t, полученное в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
var t, i: integer;
begin
t := 2;
for i := 1 to 3 do
t := t * i;
writeln(t);
end.

​

ЯЗЫК: Pascal

Const n=5; m=4;

var s, i, j : integer;

a: array [1.n, 1.m] of

integer;

begin

for i:= 1 to n do

for j:= 1 to m do

a[i,j]:=random(10);

for i:=1 to n do begin

for j:=1 to m do

write ( A[i,j]:5 );

writeln;

end;

S:=0;

For i:=1 to n do

For j:=1 to m do

S:=S+a[i,j];

Writeln(‘сумма элементов

массива равна ‘,S);

end.

Изменить программу таким образом, чтобы:

a. Матрица состояла из 15 элементов вещественного типа;

b. Значения элементов должны меняться в интервале от 3 до 7;

c. В результате выполнения программы должно быть найдено

произведение всех элементов матрицы;

d. Вычисляться сумма элементов матрицы по строкам.

Дана программа:

program Test3

Var a,b,c :integer

d,e :integer

x,r :integer

begin

write (`введите коэффициенты`)

readln (a,b,c)

write (`введите значения аргумента`)

readln (x)

d:=a*x*x

e:=b*x [звездочка]

r:=d+e+c

write (`результат=`,r)

end

1.что будет отображено на экране и в памяти компьютера если a=12, b=8, c=2, x=10. помогите пожалуйста)

2. составить блок схему

3. что будет получено, если в операторе отмеченном звездочкой вместо операции умножения использовать операцию деления

Найти наименьший из элементов, расположенных правее максимального элемента массива.

Вместо наименьшего элемента выводит последний. Помогите исправить.

const n=10;

var

a:array[1.n] of integer;

i,j,max,minp:integer;

begin

write(‘Массив ‘);

for i:=1 to n do begin

a[i]:=random(100);

write(a[i]:4);

end;

writeln;

write(‘Максимальный элемент ‘);

max:=0;

imax:=0;

for i:=1 to n do

if (a[i]>max) then begin

max:=a[i];

j:=i;

end;

writeln(max);

minp:=0;

for i:=j to n do

if (a[i] minp:=a[i];

write(‘Наименьший элемент правее максимального ‘,minp);

end.

Представленный ниже на пяти языках программирования фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 1, 8, 2, 6, 3, 2, 2, 1 (т.е. A[0] = 2, A[1] = 4, …, A[9] = 1). Определите значение переменной s после выполнения фрагмента.

Паскаль

n:=10;

s:=0;

for i:=1 to n-1 do begin

if a[i-1]>2*a[i] then begin

a[i]:=2*a[i];

s := s+ a[i];

end;

end;

Определите значение переменной «b» после выполнения фрагмента программы:

a := 15; b := -5;

if a < b*b then b := b + a

else a := a *2;

2. Какое значение будет иметь переменная b после выполнения следующих операторов присваивания:

a:=3;

b:=a+9;

b:=a+b;

b:=a-b+b/a.

3. Написать программу, которая вычисляет переменную c по формуле: c=7(a-b)+3a/4a

и выводит результат на экран, если а=6, b=4.

Напишите программу. Заполните массив А из 20 элементов по формуле А[i] = i^2 и распечатайте в столбец все его элементы в виде: <имя элемента> = <значение элемента> . По результатам выполнения программы заполните таблицу:

А(1) =

А(2) =

А(3) =

А(4) =

А(5) =

и т.д.