var a:array[1..9] of integer;
i,j,c,sum,t:integer;
begin
c:=0;
sum:=0;
for i:=1 to 9 do readln(a[i]);
for i:=1 to 9 do begin
if a[i]>2 then c += 1;
if a[i]<12 then sum += a[i];
end;
for i:=1 to 9 do begin
for j:=9 downto i do begin
if a[j]>a[i] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
end;
writeln('Количество чисел > 2: ',c);
writeln('Сумма чисел < 12: ',sum);
for i:=1 to 9 do writeln('a[',i,']=',a[i]);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Як ви розумієте слова Норберт а Вінера (засновника кібернет ИКИ): «Обчислювальна машина цінна рівно на стільки, на скільки цінна людина, що її використовує»?
Плюсы:
- Позволяет легко писать программы почти как на чистом английском, а не ломать пальцы и голову о "++i + ++i", (-1 > (unsigned int) 1 ) и прочих сишных извращений.
- Отсутствие большого количества слов для изучения(Что облегчает задачу в изучении)
- Компилятор Паскаля имеет невысокие аппаратные и системные требования. Это же можно сказать и о софте, который будет выполнен с этого языка программирования.
- При работе с Паскалем очень редко необходимы вставки ассемблера. В основном весь софт подготовлен и готов к работе. Также, стоит отметить открытый исходный код, который доступен к редактированию каждому умельцу.
Минусы:
- невозможность передачи функциям массивов переменной длины.
- отсутствие нормальных средств работы с динамической памятью.
- ограниченная библиотека ввода и вывода.
- Этот язык создали в 60-х годах. Соответственно, в наше время он считается уже устаревшим.
- В действительности очень мало реального ПО.