нужно написать на паскале: 1. Написать программу, которая в массиве из N двухзначных положительных чисел (числа могут повторяться), находит сумму и количество тех из них, которые делятся на введенное число C (при вводе значения числа С просим вводить число не более 100. Проверять этот факт не надо). Если же таковых чисел нет, то требуется вывести об этом информацию на экран.
2. Петр Макарович работает водителем маршрутки. Каждый день в течении А дней, он заправляет свою "Газель" до полного (полный бак) на автозаправки Ёжик-Нефть. Каждый день цена за литр бензина может быть разная и зависит только от фантазии владельцев данной автозаправки. Требуется определить, максимальную и минимальную сумму наличности, которая понадобится Петру Макаровичу для заправки своей "Газели" в течении указанного времени, при условии, что бак автомобиля НЕ меняет свой объем и составляет В литров.
3. Бывший бухгалтер Мария Ивановна ведет скурпулезный подсчет того количества денег, которое она тратит ежемесячно на содержание своего кота Василия уже Х лет подряд(количество лет число целое). Рацион кота из месяца в месяц не меняется. Стоимость ежемесячной корзины "на Кота" она регулярно записывает. Требуется расположить траты Марии Ивановны по возрастанию, а также определить разность между первой и последней тратами. (без поиска минимума и максимума)
n,i,k,c:integer;
begin
Randomize;
write('n = '); readln(n);
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:6);
end;
writeln;
for k := 1 to n-1 do
for i := n-1 downto k do
if a[i] > a[i+1] then
begin
c:=a[i];
a[i]:=a[i+1];
a[i+1]:=c
end;
Writeln('Отсортированный массив:');
for i:=1 to n do write(a[i]:6);
writeln;
end.
Пример:
n = 15
Исходный массив:
10 0 59 85 98 71 72 55 29 50 54 27 34 56 73
Отсортированный массив:
0 10 27 29 34 50 54 55 56 59 71 72 73 85 98
n = 10;
type
wind = record
c: char; //направление ветра (с,ю,в,з)
f: integer; //сила ветра
end;
var
a: array[1..n] of wind;
i, nday: integer;
begin
for i := 1 to n do
begin
write(i, ' - день направление ветра (с,ю,в,з)');
readln(a[i].c);
write('сила ветра :');
readln(a[i].f);
if (a[i].c = 'ю') and (a[i].f <= 4) then nday := nday + 1;
end;
writeln(' Дней когда дул южный ветер с силой, не превышающей 4 м/с :',nday);
end.
Тестовое решение:
1 - день направление ветра (с,ю,в,з)с
сила ветра :7
2 - день направление ветра (с,ю,в,з)с
сила ветра :7
3 - день направление ветра (с,ю,в,з)ю
сила ветра :6
4 - день направление ветра (с,ю,в,з)ю
сила ветра :5
5 - день направление ветра (с,ю,в,з)ю
сила ветра :4
6 - день направление ветра (с,ю,в,з)в
сила ветра :4
7 - день направление ветра (с,ю,в,з)ю
сила ветра :3
8 - день направление ветра (с,ю,в,з)в
сила ветра :5
9 - день направление ветра (с,ю,в,з)з
сила ветра :4
10 - день направление ветра (с,ю,в,з)ю
сила ветра :3
Дней когда дул южный ветер с силой, не превышающей 4 м/с :3