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

1. определите, сколько элементов массива a равны заданному значению x. 2. вычислить произведение всех элементов массива a, которые делятся на 3. 3. определите в массиве a номер первого элемента, равного x.

👇
Ответ:
peterburg1
peterburg1
21.06.2020
Const
K = 13;
Var
A:array[1..K] of integer;
i,n,X:integer;

Begin
Write('X = ');ReadLn(X);
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;

n:=0;
For i:= 1 to K do
    if A[i]=X then n:=n+1;
WriteLn;
WriteLn(n,' - кол-во элементов, равных ',X);
End.

Const
K = 13;
Var
A:array[1..K] of integer;
i:integer;
P:real;

Begin
P:=1;
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 3 = 0 then P:=P*A[i]
    End;
WriteLn;
WriteLn('Произведение элементов,кратных трём: ',P)
End.

Const
K = 13;
Var
A:array[1..K] of integer;
i,X:integer;
Begin
Write('X = ');ReadLn(X);
Write('А: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
i:=0;
Repeat
i:=i+1;
Until (A[i]=X)or(i=K);
if A[i]=X then WriteLn(i)
else WriteLn('Таких элементов нет')
End.
4,6(12 оценок)
Открыть все ответы
Ответ:
MrEvgeniy1
MrEvgeniy1
21.06.2020

1 Центральная часть компьютера, выполняющая заданные программой преобразования информации и осуществляющая управление всем вычислительным процессом.

2 Процессоры конструктивно могут выполняться как в виде одной большой интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат устройств.

3 Управля́ющий автома́т, устро́йство управле́ния проце́ссором — блок, устройство, компонент аппаратного обеспечения компьютеров.

4 Арифме́тико-логи́ческое устро́йство — блок процессора, который под управлением устройства управления служит для выполнения арифметических и логических преобразований над данными

5 технологический процесс изготовления полупроводниковых изделий и материалов; состоит из последовательности технологических и контрольных операций

а на шестой ответа не знаю(

Объяснение:

4,8(30 оценок)
Ответ:
ruslanalsibaev
ruslanalsibaev
21.06.2020
Язык программирования не указан, потому - самый простой вариант - программа на паскале. Даже на паскале задачу можно решать различными с массивом, без массива, со строками, без строк. Опять-таки, самый простой вариант - со строками.
var s,p:string; n,i:integer;
begin
writeln('Введите символы:');
readln(s);
n:=pos('.',s)-1;
writeln('n = ',n);
p:='';
for i:=1 to n do p:=s[i]+p;
writeln('а)');
writeln(p);
p:='';
if n mod 2 = 0 then i:=2 else i:=1;
while i<=n do
 begin
 p:=p+s[i];
 i:=i+2;
 end;
writeln('б)');
writeln(p);
end.

Пример:
Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки
n = 21
а)
 ,2s ,1s ыловмис ынаД
б)
Дн ивл 1 2 
4,8(100 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ