Написать программку для решения задач в стиле турбо паскаля 80-х годов.1.В
Написать программу для решения задач в стиле турбо паскаля 80-х годов.
1.В массиве храниться информация ло количестве людей, живущих на каждом из 15 этажей дома(на первом этаже - в первом элементе массива,на втором - во втором и т.д.) Определить два этажа, на которых проживает меньше всего людей.
Примечание: Задачку решить, не используя два прохода по массиву.
2. В начале массива записаны несколько равных меж собой частей. Найти количество таких частей и вывести все элементы, последующие за заключительным из их. Осмотреть возможность того, что весь массив заполнен одинаковыми элементами
Яхиева
Вероника
для каждой задачки своя программа
1 ответ
Andrej Adoevskij
Uses Crt;
const
n=15;
var
i,m1,m2,t:integer;
k:array[1..n] of integer;
begin
ClrScr;
Writeln('Укажите количество людей на каждом этаже');
for i:=1 to n do Read(k[i]);
Writeln;
массив получен, решаем задачку
m1:=1; m2:=2;
if k[m2]lt;k[m1] then begin t:=m1; m1:=m2; m2:=t end;
for i:=3 to n do
if k[i]lt;k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end;
Writeln('Меньше всего людей на этажах ',m1,' и ',m2);
ReadKey
end.
**************************************************************************************
uses Crt;
const
n=10;
a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
var
i,j,t:integer;
begin
ClrScr;
t:=a[1];
i:=2;
while (ilt;=n) and (a[i]=t) do i:=i+1;
if ilt;=n then begin
Writeln('Схожих частей: ', i-1);
Write('За ними следуют элементы ');
for j:=i to n do Write(a[j],' ');
Writeln
end
else Writeln('Весь массив заполнен схожими элементами');
ReadKey
end.
const
n=15;
var
i,m1,m2,t:integer;
k:array[1..n] of integer;
begin
ClrScr;
Writeln('Укажите количество людей на каждом этаже');
for i:=1 to n do Read(k[i]);
Writeln;
массив получен, решаем задачку
m1:=1; m2:=2;
if k[m2]lt;k[m1] then begin t:=m1; m1:=m2; m2:=t end;
for i:=3 to n do
if k[i]lt;k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end;
Writeln('Меньше всего людей на этажах ',m1,' и ',m2);
ReadKey
end.
**************************************************************************************
uses Crt;
const
n=10;
a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
var
i,j,t:integer;
begin
ClrScr;
t:=a[1];
i:=2;
while (ilt;=n) and (a[i]=t) do i:=i+1;
if ilt;=n then begin
Writeln('Схожих частей: ', i-1);
Write('За ними следуют элементы ');
for j:=i to n do Write(a[j],' ');
Writeln
end
else Writeln('Весь массив заполнен схожими элементами');
ReadKey
end.
Аделина Сичко
Спасибо, очень посодействовали
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов