1.« хх века роуз сказал «это задушевная беседа без слов, лихорадочная активность, триумф и трагедия, надежда и отчаяние, жизнь и смерть, поэзия и наука, древний восток и современная европа». источник множества интересных . термины из этой области можно встретить в по комбинаторике, программированию, кибернетике. родина - индия. возраст-xv столетий. имя изобретателя неизвестно. древнее название - чатуранга.» вопрос: «кто является единственным непобежденным чемпионом мира по этому? » 2.«как – то раз на приеме один богатый вельможа заметил дырку на кафтане этого великого ученого и, решив поиздеваться над ним, спросил: «что, сударь, я полагаю, это ученость выглядывает оттуда? » вопрос: кто этот великий ученый и что он ответил вельможе? найдите портрет этого ученого (вставьте изображение в таблицу 3.«всем известна картина леонардо да винчи «мона лиза» (джоконда). у женщины на картине отсутствует деталь внешности, в то время как эта деталь есть у каждого человека». вопрос: «что это за деталь? найдите адрес web-сайта музея, в котором хранится оригинал полотна.»
Ответы
Uses crt;const nmax=100;var a1,a2: array[1..nmax] of integer; n,i,b,k,s: integer;begin randomize; clrscr; repeat write('Введите размер массива n (n in [1..',nmax,']): '); readln(n); write('Введите число B (0<B<100): '); readln(b); until (n in [1..nmax]) and (b in [1..99]); writeln('Массив A1'); for i:=1 to n do begin a1[i]:=random(99); write(a1[i]:4); if a1[i]>b then begin inc(k); a2[k]:=i; s:=s+a1[i]; end; end; writeln; writeln('Среднее элеметов, больших B = ',s/k:0:2); writeln('Массив A2:'); for i:=1 to k do write(a2[i]:4); readln;end.
program number1;
var a: array [1..5] of integer;
i,min,max: integer;
Begin
writeln('Введите 5 значений массива');
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 5 do
Begin
if (a[i]>=max) then max:=a[i];
if (a[i]<=min) then min:=a[i];
End;
for i:=1 to 5 do
Begin
if max=a[i] then
Begin
writeln('Максимальное значение: ',a[i],' [',i,']');
max:=a[i];
End;
if min=a[i] then
Begin
writeln('Минимальное значение: ',a[i],' [',i,']');
min:=a[i];
End;
End;
writeln('Среднее арифметическое: ',(min+max)/2);
End.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Зіставте назви методів з їх призначенням
Автор: ilyushin-e
Для чего нужны схемы с постоянной логической единицей на выходе?
Автор: Mikuspavel2
Які переваги та недоліки растрових та векторних зображень?
Автор: a8227775
Какое целое шестнадцатеричное число предшествует числу 20(16) ?
Автор: Павловна1750
Вывести на экран все числа, кратные 3 в интервале от m до n при m
Автор: TatyanaVladimirovich
Какие драйвера нужны после переустановки windows 7 на компьютер
Автор: aguliaeva
1. Чатуранга — древнеиндийская игра, считающаяся прародителем шахмат.Бобби Фишер остался непобежденным чемпионом мира, потому что отказался играть матч.
2. Ученый - Михаил Васильевич Ломоносов.
Диалог:
— «Что, сударь, я полагаю, это ученость выглядывает оттуда?»
— «Нисколько», - ответил Ломоносов. - «Это глупость заглядывает туда.»
(Портрет Ломоносова - в прилагаемом файле).
3. По моде того времени у Моны Лизы выбриты брови. Картина находится в Лувре (Париж, Франция). Адрес web-сайта музея ищите сами (здесь ссылки нельзя размещать).