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

ПАСКАЛЬ
Дан массив, содержащий 10 неотрицательных целых чисел, не превышающих 10 000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести на экран минимальное из всех содержащихся в массиве трёхзначных чисел, десятичная запись которых оканчивается на 4, но не на 44. Если подходящих чисел в массиве нет, программа должна вывести число 0. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

const N=10;
var
a: array [1..N] of integer;
i, j, x, y: integer;
begin
for i:=1 to N do
read(a[i]);

end.

👇
Ответ:
danilpasynkov1
danilpasynkov1
25.03.2021

const N=10;

var

a: array [1..N] of integer;

i, j, x, y: integer;

begin

for i:=1 to N do

read(a[i]);

x:=1000;

for i:=1 to N do

if (a[i]mod 10=4)and(a[i]mod 100<>44)and(a[i]div 100>0)and(a[i]div 1000=0)and(a[i]<x)

then

x:=a[i];

if x=1000 then

write(0)

else

write(x)

end.


ПАСКАЛЬ Дан массив, содержащий 10 неотрицательных целых чисел, не превышающих 10 000. Опишите на од
4,6(82 оценок)
Открыть все ответы
Ответ:
Urannnnnn
Urannnnnn
25.03.2021

am Zhilin Andrey. Andrey is my name and Zhilin is my surname. I am seventeen years old. I want to tell you a few words about my family. My family is not large. I have got mother, father and grandmother. There are four of us in the family.

First of all some words about my parents. My mother is a teacher of biology. She works in a school. She likes her profession. She is a good-looking woman with brown hair. She is 44 but she looks much younger.

My father is programmer. He is forty-six. My father often sings and when we are at home and have some free time I play guitar and we sing together. He is also handy with many things. When he was small he liked to take everything to pieces. My grandmother told me a story that once my father tried to repair their kitchen clock but without success. They had to give it to a repairman. But it happened a long time ago. Now he can fix almost everything.

My parents have been married for 18 years. They have much in common, but they have different views on music, books, and films. For example my father likes horror films and my mother likes soap operas. My father is fond of tennis. My mother doesn't go in for sports.

My parents are hard working people. My mother keeps house and takes care of my father and me. She is very good at cooking. My grandmother is a pensioner. She lives with us and helps to run the house. She is fond of knitting.

I want to become a student. I'd like to learn foreign languages. I always try to be in a good mood.

We have got a lot of relatives.

4,7(28 оценок)
Ответ:
nikakim03
nikakim03
25.03.2021
//Pascal
var
  A: array [1..5] of integer;
  min, max, minInd, MaxInd: integer;
  i: byte;
begin
  writeln('Заполнение массива.');
  for i := 1 to 5 do
  begin
    write('А[', i, '] = '); readln(A[i]);
  end;
  writeln;
  Max := A[1]; Min := A[1];
  for i := 1 to 5 do
  begin
  if Max < A[i] then begin Max := A[i]; MaxInd := i; end;
  if Min > A[i] then begin Min := A[i]; MinInd := i; end;
  end;
  writeln('Номер минимального элемента = ', MinInd);
  writeln('Номера минимального и максимального = ', MinInd, ' и ',MaxInd);
end.

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