Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра за декаду ноября хранятся в массиве. Массив данн
Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра за декаду ноября хранятся в массиве. Массив данных о силе ветра за декаду ноября зададим в виде целочисленных констант: 7,7,6,5,4,4,3,5,4,3. Определить, сколько дней дул южный ветер с силой, не превышающей 4 м/с. срочно нужно решить в паскаль.
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
Я выделила самую главную информацию. Главным направлением перестройки менеджмента и его радикального усовершенствования, приспособления к современным условиям стало массовое использование новейшей компьютерной и телекоммуникационной техники, формирование на ее основе высокоэффективных информационно-управленческих технологий.
Средства и методы прикладной информатики используются в менеджменте и маркетинге. Новые технологии, основанные на компьютерной технике, требуют радикальных изменений организационных структур менеджмента, его регламента, кадрового потенциала, системы документации, фиксирования и передачи информации.
Var n,m,k,i,l,max,min:longint; begin max:=-maxlongint; min:=maxlongint; readln(n); for i:=1 to n do begin readln(n); if n>max then max:=n; if n<min then min:=n; end; writeln('Самый высокий ',max); writeln('Самый низкий ',min); end.
Никакие. Доказываю: Попробуйте найти 2 целых числа от 1 до 99, которые в сумме составляют 100 и если инвертировать одно из них, получается второе число. Это невозможно, а максимально близкий результат - 90 ; 09