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

Pascal.abc. 1.вывидите номер ячейки с минимальным числом. 2.найдите сумму и произведение всех элементов массива. 3.найти максимальное число и заменить его на 999 (random ( 4.найди произведение отрицательных элементов массива (random (60)-30) за ранее .

👇
Ответ:
17312
17312
21.09.2022
В этой проге 1,2,3
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
   P:=1;
   s:=0;
 for i := 1 to 10 do begin
 a[i]:= random(31);
 write(a[i]:4);
 end;
 writeln;
    min:=a[1];
    max:=a[1];
    
   for i:=1 to 10 do begin
   
     If  min>a[i] then begin
      min:=a[i];
      k:=i;
      end;

      s:=a[i]+s;
      p:=a[i]*p;
      
      If max<a[i] then
       max:=a[i];
       K2:=i;
      end;
writeln('МИнимальное число:',min,'   номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
 else write(' 999');
 end;
 writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
 
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
   P:=1;
 for i := 1 to 10 do begin
 a[i]:= random(60)-30;
 write(a[i]:4);
 end;
 writeln;
 p:=1;
  for i:=1 to 10 do begin
   If a[i] < 0 then
    p:=p*a[i]; ;
    end;
   writeln('Произведение  :',p);
end.
4,4(9 оценок)
Открыть все ответы
Ответ:
jova20011p0bpf9
jova20011p0bpf9
21.09.2022

Часть А

В заданиях части А выбрать только один ответ.

А1. Текстовый редактор – это приложение

1) для создания мультимедийных документов;

2) для создания, редактирования и форматирования текстовой информации;

3) для обработки изображений в процессе создания доклада.

А2. Текстовая информация-это

1) информация, представленная в форме письменного текста;

2) рисунки схемы, графики;

3) полный набор букв алфавита.

А3. Какие операции выполняют при редактировании текста?

1) Совершают операции по оформлению текста текст, исправляют ошибки, вносят изменения.

3) Выводят текст на печать.

А4. Какие из перечисленных ниже расширений соответствуют текстовому файлу?

1) exe, com, bat;

2) gif, bmp, jpg;

3) txt, doc, rtf.

А5. Какую программу нужно выбирать для обработки текстовой информации?

1) MS Excel;

2) MS Word;

3) Paint.

А6. При задании параметров страницы в текстовом редакторе устанавливаются:

1) гарнитура, начертание, размер;

2) поля, ориентация;

3) отступ, интервал.

А7. В каком из перечисленных ниже предложений правильно расставлены пробелы между словами и знаками препинания?

1) Слово не воробей , вылетит— не поймаешь!

2) Слово не воробей, вылетит — не поймаешь!

3) Слово не воробей, вылетит-не поймаешь !

4) Слово не воробей , вылетит —не поймаешь !

А8. Что такое абзац?

1) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Esc.

2) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Space.

3) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Enter.

А9. К группе свойств символов можно отнести:

1) шрифт, размер шрифта, начертание и цвет;

2) выравнивание, размер шрифта, междустрочный интервал, цвет;

3) выравнивание, отступ первой строки, междустрочный интервал, отступ слева и справа, интервалы перед и после.

А10. Объем текстового файла вычисляется по формуле

1) I = K * i

2) N=2i

3) N=2*i

4) I=N+K

Так?

4,4(73 оценок)
Ответ:
ино7
ино7
21.09.2022

var

  a, b, n, i, j, t: integer;

  s, sn: string;

begin

    write ('введите начало отрезка: ');

    readln (a);

    write ('введите окончание отрезка: ');

    readln (b);

    n : = 0;

    for i : = a to b do begin

      s : = inttostr (i);

t : = 1;

for j : = 1 to length (s) do

        t : = t * strtoint (s[j]);

      if t > n then begin

        sn : = s;

        n : = t;

      end;

    end;

    writeln ('число с наибольшим произведением цифр: ' + sn);

end;

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