М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

В программе используется целочисленный одномерный массив А с индексами от 0 до 5. Ниже представлен фрагмент программы, записанный на разных языках программирования: Паскаль

Си

Python

for i := 0 to 5 do begin

if (i>2) then A[i] := i * 2;

else A[i] := i * 3;

end

for (i = 0; i <= 5; i++) {

if (i>2) A[i] = i * 2;

else A[i] = i * 3;

}

for i in range(len(A)):

if i>2:

A[i] = i * 2

else:

A[i] = i * 3

Введите последовательность чисел, которая будет сохранена в массиве в результате выполнения программы (числа разделять одним пробелом, например, 1 2 3 4 5 6)

👇
Ответ:
макс10710
макс10710
05.12.2022

Відповідь:

Пояснення:

Program  Pascal;

var i: integer;

  a:array [0..5] of integer;

begin

for i:= 0 to 5 do

begin

a[i] := i +1;

write(a[i],' ');

end  

end.

4,6(56 оценок)
Открыть все ответы
Ответ:
linda281
linda281
05.12.2022

1)

var a:array[1..20] of integer;
max,min,n,i:integer;
begin

randomize;
n:=20;
for i:=1 to n do a[i]:=random(150);
begin
min:=a[1];
for i:=1 to n do if a[1]>a[i] then min:=a[i];
end;
begin
max:=a[1];
for i:=1 to n do if a[1]<a[i] then max:=a[i];
end;
writeln(min);
writeln(max);
end.

 

 

2)

const n=5;
var x: array[1..n,1..n] of integer;
i,j,s: integer;
begin
randomize;
writeln('Matrisa:');
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(200);
write(x[i,j]:5);
end;
writeln
end;
j:=8;
for i:=1 to n do
begin
j:=j-1;
s:=s+x[i,(n+1-i)];
end;
writeln('Summa: ',s);
end.

4,4(67 оценок)
Ответ:
6996nya
6996nya
05.12.2022

1)

var a:array[1..20] of integer;
max,min,n,i:integer;
begin

randomize;
n:=20;
for i:=1 to n do a[i]:=random(150);
begin
min:=a[1];
for i:=1 to n do if a[1]>a[i] then min:=a[i];
end;
begin
max:=a[1];
for i:=1 to n do if a[1]<a[i] then max:=a[i];
end;
writeln(min);
writeln(max);
end.

 

 

2)

const n=5;
var x: array[1..n,1..n] of integer;
i,j,s: integer;
begin
randomize;
writeln('Matrisa:');
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(200);
write(x[i,j]:5);
end;
writeln
end;
j:=8;
for i:=1 to n do
begin
j:=j-1;
s:=s+x[i,(n+1-i)];
end;
writeln('Summa: ',s);
end.

4,4(28 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ