Кто знает паскаль Некоторая семья решила отдохнуть на море в июне месяце в течение 10-и дней. Они могут приобрести билеты только в первый день каждой декады месяца (т.е. 1-го июня, 11-го июня, 21-го июня). Данные о прогнозе погоды в июне хранятся в текстовом файле vreme.in.

Задача: Напишите программу, которая определяет декаду июня месяца с наибольшим количеством солнечных дней. Программа будет содержать подпрограмму с именем PS с целым параметром – начало декады июня (1, 11 или 21). Подпрограмма возвратит количество солнечных дней соответствующей декады.

Ввод: Текстовый файл vreme.in содержит для каждого из 30-ти дней июня по одной букве, которая соответствует погоде соответствующего дня: ‘S’ – солнечно, ‘N’ - облачно, ‘P’ – дождь.

Вывод: Текстовый файл vreme.out содержит две строки – в первой записаны два целых числа, разделенных дефисом – начало и конец периода отдыха. (Например: 1-10, 11-20 или 21-30), и во второй строке – количество солнечных дней в этом периоде.

Примечание. Все три декады июня имеют разное количество солнечных дней.

1. Динамический массив

program p_1;

var n,i,k:integer;

a:array of integer;

begin

write('Введите количество элементов массива ');

readln (n);

a := new integer[n+1];

for i:=1 to n do

begin

write('Введите ',i,' элемент массива ');

readln (a[i])

end;

k:=0;

for i:=1 to n do

if a[i] = 0 then k:=k+1;

writeln;

writeln('k = ',k)

end.

2. Статический массив

program p_1;

var n,i,k:integer;

a:array [1..1000] of integer;

begin

write('Введите количество элементов массива ');

readln (n);

for i:=1 to n do

begin

write('Введите ',i,' элемент массива ');

readln (a[i])

end;

k:=0;

for i:=1 to n do

if a[i] = 0 then k:=k+1;

writeln;

writeln('k = ',k)

end.

Информационная служба FTP - это протокол передачи файлов по сети, является одним из старейших прикладных протоколов, появившихся задолго до HTTP, и даже до TCP/IP, в 1971 году; в первое время он работал поверх протокола NCP. Он и сегодня широко используется для распространения ПО и доступа к удалённым хостам. В отличие от TFTP, гарантирует передачу (либо выдачу ошибки) за счёт применения квитируемого протокола.

Информационная служба FTP используется для передачи файлов, хранения набора файлов самого разнообразного назначения (обычно в архивированном виде)

Форум, Доска Объявлений, Разные социальные сети, разные сайты

Объяснение: