В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
uradovskiy2015
uradovskiy2015
23.12.2020 17:05 •  Информатика

Задание 1
Во Сколько байт оперативной памяти будет занимать описанный массив?
t: array [1..80] of boolean;
Выберите один из 4 вариантов ответа:
1) 160 2) 10 3) 0 4) 80
Задание 2
Во Сколько элементов в описанном массиве?
d: array [byte] of byte;
Запишите число:


Задание 3
Во Сколько байт занимает описанный массив?
a: array [boolean] of real;
Запишите число:

Задание 4
Во Как называются ячейки оперативной памяти, в которых хранятся данные массива?
Выберите один из 4 вариантов ответа:
1) Пункты массива 2) Строки 3) Индексы 4) Элементы массива
Задание 5
Во Какие действия возможны над массивами, как над единым целым?
Выберите несколько из 4 вариантов ответа:
1) Присваивание 2) Проверка неравенства
3) Сложение 4) Проверка равенства

Задание 6
Во Как обратится к элементу массиваа с индексом 5?
Запишите ответ:

Задание 7
Во Как называется структурный тип данных, используемый для хранения пронумерованных величин одного типа?
Выберите один из 4 вариантов ответа:
1) Регулярный тип 2) Комбинированный тип
3) Составной тип 4) Строковый тип
Задание 8
Во Какие варианты описания элементов массива являются правильными?
Выберите несколько из 4 вариантов ответа:
1) c: array [char] of 1..7; 2) m: array [integer] string;
3) t: array [real] of real; 4) a: array [1..2] of byte;
Задание 9
Во Сколько байт оперативной памяти в среде PascalABC занимает описанный двумерный массив?
a: array [1..50, 1..70] ofinteger;
Выберите один из 4 вариантов ответа:
1) 7 000 2) 70 3) 3 500 4) 50
Задание 10
Во Какая величина в языке Pascalназывается массивом?
Выберите один из 4 вариантов ответа:
1) Величина составного типа
2) Величина одного из числовых типов
3) Величина регулярного типа
4) Величина символьного типа

Показать ответ
Ответ:
vladmakarchuk80
vladmakarchuk80
14.09.2022 02:56
Const CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas1=array[1..CSize1,1..CSize1] of integer;
     TMas2=array[1..Csize2, 1..CSize2] of integer;
     TMas3=array[1..Csize3, 1..CSize3] of integer;

var A1:TMas1;
    A2:TMas2;
    A3:TMas3;
    i,j,x, y:byte;

function zero(i:integer):boolean;
begin
zero:=false;
if i=0 then zero:=true;
end;

function interval(i:integer):boolean;
begin
interval:=false;
if (i<=12) and (i>=1) then interval:=true;
end;

begin
X:=0;
Y:=0;
randomize;
for i:=1 to CSize1 do
 begin
 for j:=1 to CSize1 do
  begin
  A1[i, j]:=random(50);
  write(A1[i, j]:3);
  if zero(A1[i, j]) then inc(x);
  if interval(A1[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize2 do
 begin
 for j:=1 to CSize2 do
  begin
  A2[i, j]:=random(50);
  write(A2[i,j]:3);
  if zero(A1[i,j]) then inc(x);
  if interval(A2[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize3 do
 begin
 for j:=1 to CSize3 do
  begin
  A3[i, j]:=random(50);
  write(A3[i,j]:3);
  if zero(A3[i,j]) then inc(x);
  if interval(A3[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
end.
0,0(0 оценок)
Ответ:
AirinMandarin
AirinMandarin
07.09.2020 18:09
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
const
  n=5;
type
  Matrix=array[1..n,1..n] of integer;

procedure DummySchool(var a:Matrix);
begin
  Writeln('Ввод элементов матрицы');
  for var i:=1 to n do begin
    Write(n,' элементов строки ',i,': ');
    for var j:=1 to n do Read(a[i,j]);
    end;
  Writeln('Сформирована матрица ',n,'x',n);
  for var i:=1 to n do begin
    for var j:=1 to n do Write(a[i,j]:5);
    Writeln
    end
end;

begin
  var B:Matrix;
  DummySchool(B);
  var sn:=0;
  var sp:=0;
  for var i:=1 to n do
    for var j:=1 to n do
      if B[i,j]<0 then sn+=B[i,j]
      else
        if B[i,j]>0 then sp+=B[i,j];
  Writeln('Сумма отрицательных ',sn);
  Writeln('Сумма положительных ',sp)
end.

Тестовое решение:
Ввод элементов матрицы
5 элементов строки 1: 6 23 -5 13 9
5 элементов строки 2: 42 0 -38 16 37
5 элементов строки 3: -5 -18 3 11 8
5 элементов строки 4: 9 13 -11 0 3
5 элементов строки 5: 19 -17 0 15 5
Сформирована матрица 5x5
    6   23   -5   13    9
   42    0  -38   16   37
   -5  -18    3   11    8
    9   13  -11    0    3
   19  -17    0   15    5
Сумма отрицательных -94
Сумма положительных 232
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота