Almirgiv
20.01.2020 09:18

Составить программу на языке Паскаль для решения задачи. Дан ряд чисел.
–3; 11; 12,7;
Найдите произведение положительных и сумму отрицательных чисел. Определите количество положительных чисел.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vanyazoro
26.01.2023 06:37

program gulkakh;

const n=5;

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

i,j,k,max,stroka:integer;

begin

writeln('Исходная матрица:');

for i:=1 to n do   

for j:=1 to n do    begin   

 a[i,j]:=random(20)-10;   

 write(a[i,j],' ');   

  if j=n then writeln; 

  end;   

 stroka:=1;

max:=a[1,1];

for i:=1 to n do

for j:=1 to n do begin

if max<a[i,j] then begin

max:=a[i,j];

stroka:=i;

end;

end;

k:=n;

for i:=stroka to n-1 do

for j:=1 to n do

a[i,j]:=a[i+1,j];

k:=k-1;

writeln('Без удаленной строки:');

for i:=1 to k do 

 for j:=1 to n do begin

  write(a[i,j],' '); 

if j=n then writeln; 

end;

end.

0,0(0 оценок)
Ответ:
Алена1112ал
20.08.2020 05:22

1.

a, b = map(int, input("Sides:").split())

s = (a * b) / 2

print(s)

2.

a_price, b_price = map(int, input("Price:").split()) # Цена товаров

a_number_begin, b_number_begin = map(int, input("Number at the beginning").split())

# Количество в начале рабочего дня

sold = a_sold, b_sold =  map(int, input("Sold goods").split()) #Проданный товар

print("Cost at the begin 1:", a_price * a_number_begin,"2:", b_price * b_number_begin)

print("Cost of unsold goods 1:", (a_number_begin - a_sold) * a_price,"2:", (b_number_begin - b_sold) * b_price)

3.

count = int(input())

start_min = 490 # Во сколько начинаются уроки в минутах

work_time = 55 # Время урока и перемены, можно сложить

result = count * work_time + start_min

print("Hours:", result // 60, "Min:", result % 60) # // - это целочисленное деление, % - остаток от деления

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота