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

МНЕ С ИНФОРМАТИКОЙ!!

Вычислить сумму элементов массива, значения которых больше X.

👇
Ответ:
asim2001
asim2001
03.02.2023

var a:array[1..10] of integer;

   x, i, s:integer;

begin

 s:=0;

 for i:=1 to 10 do a[i]:=random(100);

 readln(x);

 for i:= 1 to 10 do

   if a[i] > x then s:= s + a[i];

 write(s);

end.

Объяснение:

Как я понял размер массива условен.

4,8(19 оценок)
Открыть все ответы
Ответ:
aser101q
aser101q
03.02.2023

254₈ = 172₁₀ = АС₁₆

9F₁₆ = 159₁₀ = 237₈

Объяснение:

Переведите число 254₈ по схеме А8 → А10 → А16

254₈ = 2 * 8² + 5 * 8¹ + 4 * 8⁰ = 2 * 64 + 5 * 8 + 4 * 1 = 128 + 40 + 4 = 172₁₀

254₈ = 172₁₀

172 / 16 = 10 + остаток 12 (С)

10 / 16 = 0 + остаток 10 (А)

записываем остатки снизу вверх

В качестве цифр 16-ой системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

172₁₀ = АС₁₆

Переведите число 9F₁₆ по схеме А16 → А10 → А8

9F₁₆ = 9 * 16¹ + F * 16⁰ = 9 * 16 + 15 * 1 = 144 + 15 = 159₁₀

В качестве цифр 16-ой системы счисления используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

9F₁₆ = 159₁₀

159 / 8 = 19 + остаток 7

19 / 8 = 2 + остаток 3

2 / 8 = 0 + остаток 2

записываем остатки снизу вверх

159₁₀ = 237₈

4,8(98 оценок)
Ответ:
Ytbjfdg
Ytbjfdg
03.02.2023
Var
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
randomize;
t:=0;
Writeln('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i, j] := random(10); 
end;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=1/i+j-1;
end;
for i:=1 to n do
for j:=1 to n do
begin
for k:=1 to n do
begin
t :=t+a[i,k]*b[k, j];
end;
c[i,j]:=t;
t:=0;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',c[i,j]:2:2);
end;
Writeln;
end;

end.
4,5(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ