Даны 7 чисел.Найти максимальное из них. На экран вывести разность между большим ...

July 2022 1 5 Report

Даны 7 чисел.Найти максимальное из них. На экран вывести разность между большим и всеми исходными числами. СРОЧНО ПОМОГИТЕ ПО ИНФОРМАТИКЕ

Answers & Comments

d514 Program test;
Var
n, j, max: integer;
Numb: array[1..7] of integer;
Begin
max := Numb[1];
n := 1;
for j:=2 to 7 do
begin
      if count[j]>max then
      begin
         max := count[j];
         n:=j;
      end;
   end;
   for j:=2 to 7 do writeln ('j= ', max-count[j]);
end;
end.

0 votes Thanks 0

Answers & Comments

uprazhnenie 251 proshu sdelajteya znayu tut legko ya prosto sveritsya hochu

chto takoe ekonom teoriya

napishite formulu chislakratnogo 7najdite po etoj formule dva trehznachnyh chisla8f2acdb1febdc5d6a4597c12b20290b6 22471

perevypolniv plan na 15 zavod vypustil za mesyac 230 stakanov skolko stakanov

dany tri chislavyvesti na ekran te iz nihche udvoennoe proizvedenie menshechem

pomogite proshu upr211

pomogite napisat mini sochinenie na temusergij radonezhskij voploshenie nacional

otvette na eti voprosy pozhalujsta009d10f44db5907a8ad6d9255d95f13d 42934

dlina pryamougolnikana 8 sm bolshe ego shirinynajdite storony i ploshadesli pe

dlina pryamougolnika na 6 sm bolshe ego shirinynajdite storony pryamougolnika i

рекомендуемые вопросы

Helpful Links

Helpful Social