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

с задачами в python!
1. Ввести с клавиатуры массив состоящий из 10 элементов, вывести его, вывести количество отрицательных элементов и сумму всех элементов.
2. Заполнить массив из 7 элементов случайными числами в диапазоне от -10 до 10, вывести его, заменить все отрицательные элементы противоположными числами, вывести результат все оставшиеся отдаю, очень

Показать ответ
Ответ:
VolkovaI
VolkovaI
19.04.2020 17:20
Знаковая модель, как следует из её определения, это формула потому что она записана специальными Знаками.

Графической модели иерархической системы лучше всего будет отвечать иерархическая модель. Хотя имеются методы, позволяющие отразить иерархию и в табличной модели (реляционная алгебра). Натуральная модель в некоторых случаях тоже может отражать иерархию: модель автомобиля, если представить его в виде иерархического набора элементов. Математическая модель может вообще все что угодно отобразить. Но все же иерархическая модель отражает иерархию наиболее наглядно.
0,0(0 оценок)
Ответ:
karinaletgo07
karinaletgo07
05.02.2021 08:17
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота