В массиве хранится информация о среднедневной температуре за каждый день июля. Определить количество самых прохладных дней в этом месяце.
10-11 класс
|
var
a:array[1..31] of real;
i,k:integer;
min:real;
begin
min:=50;
for i:=1 to 31 do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
k:=0;
for i:=1 to 31 do
if a[i]=min then k:=k+1;
writeln(k);
end.
Другие вопросы из категории
ируемые поледывательностью цифр 35291815 303113241115.Какая последовательность цифр является кодом слова китёнок
1) Найти сумму всех элементов массива, заполненных случайными числами?
2) Найти сумму четных элементов массива?
3) Найти сумму элементов массива, стоящих на четных местах?
А.А. с198
program pr;
uses crt;
var f:file of integer;
n:integer;
a:string;
begin
clrscr;
a:='c:\f1.txt';
assign(f,a);
rewrite(f);
writeln('n: ');
readln(n);
write(f,n);
close (f);
readln;
end.
после выполнения программы в файле f1.txt вместо значения n=5 появилось -256
что не так ?
Читайте также
Определить общую зарплату, выплаченную в июне.
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .