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

1.скільки елементів містяться в масиві, описаному таким чином в мові
програмування Free Pascal?

x: array [1..5] of integer;

2.якого типу елементи містяться в масиві, описаному таким чином в мові
програмування Free Pascal?

x: array [1..5] of integer;

Показать ответ
Ответ:
chernika25
chernika25
24.09.2020 12:53
Uses crt;
const Q=10000;
var a:array [1..Q] of integer;
     x,k,p,m,n,o:integer;
begin
     write('a='); readln(m);
     write('b='); readln(n);
     a[1]:=m;
     for x:=2 to (n-m+1) do
         a[x]:=a[x-1]+1;
     write('Положительные: ');
     for x:=1 to (n-m+1) do
         if a[x]>0 then begin inc(p); write(a[x],' '); end;
     writeln;
     write('Отрицательные: ');
     for x:=1 to (n-m+1) do
         if a[x]<0 then begin inc(o); write(a[x],' '); end;
     writeln;
     writeln('Положительных чисел:', p);
     writeln('Отрицательных чисел:',o);
end.
0,0(0 оценок)
Ответ:
ЛизаМэй
ЛизаМэй
07.06.2022 19:37
1)  (Если была высшая математика, то должно быть понятно.) 
Ну допустим надо посчитать сред. ариф. всех элементов массива.
Пусть будет массив размерностью (Типа таблица) 3х3, запишем его так (он двухмерный)
 A[n,m]; -  основное положение массива, где n строка, где m столбец.
Давать ему наименование равно такому же смыслу как и Program N; никаких цифр впереди например 1A, правильно записывать массив - A1, XD1D4, _s4; _1; _1d1 и т.д.
Массив должен иметь такой же тип переменных какой задан в условии, т.е. непосредственно real = real. Элементы массива записываются через запятую. И снова же, если массив имеет тип данных целых чисел, то элементы его тоже должны соответствовать им A[i,j] = integer; i,j - type integer;
Сейчас допишу остальные
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота