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

Ввести с клавиатуры массив из 7 элементов,найти в нём минимальный элемент и его номер.вывести массив в обратном порядке

👇
Ответ:
alisavakhnina1
alisavakhnina1
07.05.2020
Program znanija;
const n = 7;
var 
a:array[1..n] of integer;
mini, min, i, b:integer;
begin
mini := 1;

write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin 
read(b); 
a[i] := b; 

if i = 1 then min := b;   

if b < min then  
begin 
min := b; 
mini := i; 
end;   

end;

write('Массив в обратном порядке: ');
for i := n downto 1 do 
write(a[i], ' '); 

writeln(); 
write('Минимальный элемент массива ', min, ', его номер ', mini);
end.
4,4(90 оценок)
Открыть все ответы
Ответ:
NEASA
NEASA
07.05.2020

А)

program c1;

var

 a, b: integer;

 c: real;

begin

 a := 2;

 b := 3;

 c := a + 1 / 3;

 write(c);

end.

Б)

program c2;

var

 a, b: integer;

 c: real;

begin

 a := 2;

 b := 3;

 c := a + 4 / 2 * 3 + 6;

 write(c);

end.

В)

program c3;

var

 a, b: integer;

 c: real;

begin

 a := 2;

 b := 3;

 c := a + 4 / 2 * 3;

 write(c);

end.

Объяснение:

А)

program c1;  // Название программы

var  // Раздел для описания переменных

 a, b: integer;  // Объявление целочисленных переменных

 c: real;  // Объявление вещественной переменной

begin  // Начало программы

 a := 2;  // a = 2

 b := 3;  // b = 3

 c := a + 1 / 3;  // c = a + 1 ÷ 3

 write(c);  // Выводим ответ

end. // Конец программы

Б)

program c2;  // Название программы

var  // Раздел для описания переменных

 a, b: integer;  // Объявление целочисленных переменных

 c: real;  // Объявление вещественной переменной

begin  // Начало программы

 a := 2;  // a = 2

 b := 3;  // b = 3

 c := a + 4 / 2 * 3 + 6; // c = a + 4 ÷ 2 × 3 + 6

 write(c);  // Выводим ответ

end. // Конец программы

В)

program c3;  // Название программы

var  // Раздел для описания переменных

 a, b: integer;  // Объявление целочисленных переменных

 c: real;  // Объявление вещественной переменной

begin  // Начало программы

 a := 2;  // a = 2

 b := 3;  // b = 3

 c := a + 4 / 2 * 3; // c = a + 4 ÷ 2 × 3

 write(c);  // Выводим ответ

end. // Конец программы

4,8(8 оценок)
Ответ:
r2973548
r2973548
07.05.2020

1 задача:

import math

a=int(input())

b=int(input())

if(math.fabs(a+b)>20):

   print(math.pow(a,2))

else:

   b=math.fabs(b)

   print(math.sqrt(b))

2 задача:

a=int(input())

if a == 5:

   print("Отлично")

elif a == 4:

   print("Хорошо")

elif a == 3:

   print("Удовлетворительно")

elif a == 2:

   print("Плохо")

elif a == 1:

   print("Отвратительно")

else:

   print("Это не оценка")

3 задача:

x=int(input())

y=int(input())

a=int(input())

b=int(input())

a7 = a%x

b7 = b%y

if(a7>b7):

   print("7A")

else:

   print("7Б")

4 задача:

import math

print("Введите интервал")

a=int(input())

b=int(input())

while(a<=b):

   if a<100:

       r=13*math.pow(a,2)

       print("X=" + str(a) + " y=" + str(r))

   elif a>100:

       r=math.pow(a,3)-100

       print("X=" + str(a) + " y=" + str(r))

   else:

       r=30-(a/(a-5))

       print("X=" + str(a) + " y=" + str(r))

   a=a+1

5 задача:

import math

print("Введите интервал")

a=int(input())

b=int(input())

while(a<=b):

   if a<4:

       r=3*a-7

       print("X=" + str(a) + " y=" + str(r))

   else:

       r=5*math.pow(a,2)

       print("X=" + str(a) + " y=" + str(r))

   a=a+1

Объяснение:

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