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

На вопросы ответить, можете не на все, но всё же)) 1. чем характеризуется массив? 2. как объявляется массив? 3. перечислить основные этапы работы с массивом. 4. как можно задавать начальные значения элементам массива? 5. в каком случае следует распечатывать начальные значения элементов массива? 6. как напечатать элементы массива в столбик? в строчку?

👇
Ответ:
mvrlin
mvrlin
07.05.2021
1. Размерностью, типом, статический/динамический, количеством измерений.
2. В классическом Паскале: var название массива:array[размерность/размерности] of тип (но на самом деле методов огромное количество)
3. Инициализация, установка размерности(динамический), ввод значений, манипуляции, освобождение памяти(динамический).
4. В классическом Паскале: имя массива[индекс элемента]:=значение (опять же, методов на самом деле много)
5.  В случае, если они присвоены посредством генератора псевдослучайных чисел.
6. 1. for i:=1 to размерность массива do
writeln(имя массива[i]);
2. for i:=1 to размерность массива do
write(имя массива[i]:4);
4,5(17 оценок)
Открыть все ответы
Ответ:
Const
    handsfree = true;

var
    a: array[1..100] of real;
    i, n: integer;
    min, max: real;
    k: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100);
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {подсчет элементов}
    k := 0;
    for i := 1 to n do
        if a[i] > 5 then k := k + 1;
    writeln(k);
end.
4,4(90 оценок)
Ответ:
madina319
madina319
07.05.2021
1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
4,6(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ