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

Масиви. Основні поняття Простий тип даних означає:
a. одна змінна - одне значення
b. назва змінної складається з одного символа
c. в змінній зберігається просте число

Складений тип даних означає:
a. назва змінної складається з кількох символів
b. одна змінна - кілька значень
c. в змінній зберігається сума значень

Масив може містити безліч елементів.
a. так
b. ні

Масив може містити елементи різних типів.
a. так
b. ні

Індекс елементу масиву- це:
a. порядковий номер цього елементу
b. значення цього елементу

Третій елемент масиву t:
a.t[3]
b.t(3)
c.t3

Обрати тип алгоритму, в якому використовуються масиви:
a.лінійний
b.розгалужений
c.циклічний

Індекс елементу масиву - це:
b.ціле число, як правило
c.цілочисельний вираз, як правило

Показать ответ
Ответ:
гульназ5623
гульназ5623
06.11.2020 11:09
Var a,i,j,b,p,p1:longint;
m:array[0..501] of longint;
procedure qsort(l,r:longint);
var q,w,i,j,p:longint;
begin
q:=m[(l+r) div 2];
repeat
while m[i]<q do inc(i);
while m[j]>q do dec(j);
if i<j then
begin
w:=m[i];
m[i]:=m[j];
m[j]:=w;
inc(i); dec(j);inc(p);
end;
if i=j then
begin
inc(i);dec(j);
end;
until i>j;
if i<r then qsort(i,r);
if j<l then qsort(l,j);
p1:=p;
end;
begin
for i:=1 to 500 do
m[i]:=random(100);
for i:=1 to 500 do
for j:=500 downto i+1 do
if m[j]<m[i] then
begin 
a:=m[j]; 
m[j]:=m[i]; 
m[i]:=a; 
inc(p);
end;
writeln(p);
qsort(1,500);
writeln(p1);
end.
0,0(0 оценок)
Ответ:
ilyaneizvestno10
ilyaneizvestno10
17.12.2021 19:10
Var  i1, i2, i3: 1..9;  //Цифры трехзначного числа  i, n: integer;  //n - количество трехзначных чисел, у которых ... begin  n:= 0;  //Обнуляем счетчик  for i:= 100 to 999 do  //Перебираем все трехзначные числа и считаем количество  begin    i1:= i div 100;    i2:= (i mod 100) div 10;    i3:= i mod 10;     if (i1 + i2 + i3) mod 2 = 0 then n:= n + 1;  end;  writeln('Количество трехзначных чисел, у которых сумма цифр является четным числом равна:  ', n);  //Выводим количествоend.Если все правильно, отметь решение как лучшее)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота