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

Дан массив а размером 10 элементов, заполненный датчиком случайных чисел. Найти минимальный элемент массива.
2. Дан массив а размером 10 элементов, заполненный датчиком случайных чисел. Найти максимальный элемент массива.
3. Дан массив а размером 10 элементов, заполненный датчиком случайных чисел. Найти сумму минимального и максимального элемента массива.

👇
Открыть все ответы
Ответ:
Gdyfyttyffhfry
Gdyfyttyffhfry
06.02.2020

какой клас и как вы можете сделать на этом форуме и в каких ситуациях вам удобно будет в течении дня получить ответ и ждать звонка от него и узнать стоимость доставки в Россию или нет и я не могу оплатить счёт в понедельник в понедельник и мне нужно оплатить до понедельника или в пятницу в течении недели после обеда и в пятницу в понедельник утром в районе часов вечера и вечером буду буду и буду печали с вами и буду вам очень признателен если что я ещё раз в этом году буду печали в понедельник и буду ждать...

4,5(36 оценок)
Ответ:
mikkie3
mikkie3
06.02.2020
1. Современное решение

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var c:=ReadArrInteger('Введите элементы массива: ',10);
  c.Transform(x->x>0?x*x:x=0?x:20); c.Println
end.

Пример
Введите элементы массива:  5 11 -7 0 3 -12 -8 1 9 -2
25 121 20 0 9 20 20 1 81 20

2. Традиционное "школьное" решение

const
  n=10;
var
  i:integer;
  c:array[1..n] of integer;
begin
  Write('Введите элементы массива: ');
  for i:=1 to n do Read(c[i]);
  for i:=1 to n do
    if c[i]>0 then c[i]:=sqr(c[i])
    else
      if c[i]<0 then c[i]:=20;
  for i:=1 to n do Write(c[i],' ');
  Writeln
end.

3. Улучшенное "школьное" решение

const
  n=10;
var
  i,t:integer;
  c:array[1..n] of integer;
begin
  Write('Введите элементы массива: ');
  for i:=1 to n do begin
    Read(t);
    if t>0 then c[i]:=t*t
    else
      if t<0 then c[i]:=20
    end;
  for i:=1 to n do Write(c[i],' ');
  Writeln
end.

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