1. Определите значение переменной X после выполнения следующего фрагмента программы: x:=2; for i:= 1 to 5 do x:=x+2*i; x:=x+1; 2.Определите значение переменной X после выполнения следующего фрагмента программы: x:=2; for i:= 1 to 5 do begin x:=x+2*i; x:=x+1; end; 3.Определите значение переменной X после выполнения следующего фрагмента программы: x:=2; y:=6; while x+y<10 do begin x:=x+2; y:=y-1; end; 4.Определите значение переменной X после выполнения следующего фрагмента программы: x:=1; repeat x:=x+2; x:=x+1; until x>10;
Ответы
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сделайте презентацию на power point живую, на тему гравити фолз
Автор: Макаров1887
Какие функции выполняет кнопка Вращение (Orbit)
Автор: lebedevevgen
Напечатать "столбиком" значения sin 2, sin3...sin20
Автор: cvetyzelen283
ть будь ласка, написати мовою Delphi Дуже
Автор: stachevay-lera
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56