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

Написать программу (с использованием процедур и функций) ​

👇
Ответ:
Rake4
Rake4
26.05.2021

procedure FormMas(a: array[,] of integer; var v: array of int64);

var

 m, n, i, j, k: integer;

begin

 m := length(a, 0);

 n := length(a, 1);

 setlength(v, n);

 for j := 0 to n - 1 do

 begin

   v[j] := 1;

   k := 0;

   for i := 0 to m - 1 do

     if a[i, j] < 0 then

     begin

       k := k + 1;

       v[j] := v[j] * a[i, j]

     end;

   if k = 0 then

     v[j] := 0;

 end;

end;

function KolNul(a: array[,] of integer): integer;

var

 m, n, i, j, k, p: integer;

begin

 k := 0;

 m := length(a, 0);

 n := length(a, 1);

 for j := 0 to n - 1 do

 begin

   p := 0;

   for i := 0 to m - 1 do

     if a[i, j] < 0 then

       p := p + 1;

   if p = 0 then

     k := k + 1;

 end;

 KolNul := k;

end;

var

 m, n, i, j, k: integer;

 a: array[,] of integer;

 b: array of int64;

begin

 read(m, n);

 setlength(a, m, n);

 for i := 0 to m - 1 do

   for j := 0 to n - 1 do

     read(a[i, j]);

 FormMas(a, b);

 for j := 0 to n - 1 do

   write(b[j], ' ');

 writeln;

 k := KolNul(a);

 write(k);

end.

4,7(96 оценок)
Открыть все ответы
Ответ:
QAZPLM11
QAZPLM11
26.05.2021

К основным характеристикам процессора не относится: объем оперативной памяти.

Сенсорная панель — это указательное устройство ввода. Определите, в каком устройстве используется такой тип ввода информации: в тачпаде, в графическом планшете.

К внешней памяти не относится: специальная память.

Файл — это поименованная группа данных в долговременной памяти.

Сколько символов может быть в расширении файла? 3-4.

Определите тип файла выход.bmp- графический.

Видеофайлы имеют расширение: avi, wmv, mpeg.

Что означает характеристика жесткого диска — емкость - объем информации, который может храниться на жестком диске.

Что из перечисленного не является функцией операционной системы - обеспечение информационной зашиты.

Прикладное программное обеспечение — программы для решения конкретных задач обработки информации.

Уровень B. (Во всех заданиях обязательно записывать решение.)

Выберите из предложенного списка файлов только те, которые относятся к текстовым (используются для хранения текстов):
а) my.doc,
г) bell.txt,
е) song.docx,

Какие из перечисленных ниже устройств относятся к внутренним? процессор, оперативная память. Расположите устройства внешней памяти в порядке убывания их объёма: жёсткий диск, DVD-ROM, CD-ROM, дискета.

 Перечислите не менее пяти известных вам устройств внешней памяти. Винчестер, флеш - память, дискета, CD, DVD.

Какие из перечисленных ниже характеристик относятся к внешней памяти?
б) Её объём измеряется десятками и сотнями гигабайт.
в) Используется для долговременного хранения информации.
ж) Более медленный доступ.

Уровень С.

Запишите полный путь к файлу readme.txt, если известно, что он хранится в папке HOME, вложенной в папку HELP, находящейся на диске С:. С:\HELP\HOME\readme.txt

Компьютер Вани имеет следующие характеристики:

— тактовая частота – 1,7 ГГц,

— объём оперативной памяти – 256 Мбайт.

Ваня хочет приобрести диски с компьютерными играми, на которых указаны следующие системные требования:

Диск 4. Процессор с тактовой частотой 1,3 Ггц, объём ОП – 128 Мбайт.

Какие из указанных дисков Ване стоит приобретать и почему?

Потому что все остальные не подходят под характеристики компьютера или занимают больше половины оперативной памяти компьютера, что не желательно тк могут возникнуть ошибки в работе системных процессов. 

4,6(62 оценок)
Ответ:
ktuj240
ktuj240
26.05.2021
Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.   
4,5(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ