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

Что демонстрирует данная операция?Что выйдет в конечном итоге? const
N=25;
var
a:array[1..N] of integer;
i:byte;
sum:integer;
begin
randomize;
for i:=1 to N begin
arr [i]:=random (10)-5;
write (arr[i]:4);
end;
writeLn;
sum:=0;
for i:=1 to N do
if arr [i]>0 then
sum:=sum+arr[i];
writeLn (sum 5);
end. ​

👇
Ответ:
aggrib
aggrib
14.12.2020

Решение представлено во вложении.

Язык: Pascal;

Программа подсчитывает сумму положительных элементов массива и выводит её на экран.


Что демонстрирует данная операция?Что выйдет в конечном итоге? constN=25;vara:array[1..N] of integer
4,5(82 оценок)
Открыть все ответы
Ответ:
Гулзат1111
Гулзат1111
14.12.2020
1. 
var 
n,i,k,sum,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;

for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.

2.
var 
n,i,k,p,h,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
 h += 1;
n:=n div 10;
end;
writeln(h);
end.

3.
const
n=10;
var

a:array[1..n]of integer;
i,sum:integer;

begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);

for i:=1 to n do 
 sum:=sum+a[i];
writeln(sum);
end.

4.
var

n:integer;

begin

readln(n);

while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.

5.
var

a:array[1..10]of integer;
i:byte;

begin

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

for i:=1 to 10 do begin
 if a[i] = 2 then
writeln('да есть');
break;
end;
end.
4,5(40 оценок)
Ответ:
dhjejdj
dhjejdj
14.12.2020
Существенные:
а) костюм->брюки->пуговица->нитка
Пуговицы могут быть заменены иными застежками.
б) автомобиль-> двигатель->поршень
Двигатель может быть турбинным, электрическим и т.д.
в) компьютер->системный блок->материнская плата->шина->контроллер жестких дисков
Не обязательно иметь системный блок и/или жесткий диск (микроконтроллеры, встроенные вычислители)
г) телефонная сеть->соединительные провода->узлы->абонентская аппаратура
Телефонная сеть может быть беспроводной и с одним абонентом. Например, прямая связь руководителей двух государств. Чтобы не подслушивали)))
д) школа->руководство->персонал->актив->учащиеся
Тут комментарии излишнни.
е) армия->командующий->рядовой->автомат
Не обязательно солдата вооружать автоматом.
ж) государство->президент->министры->народ
При авторитарном режиме (например, военная диктатура) нет ни президента, ни министров.
4,7(34 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ