Вопрос сформулирован не правильно Есть 3 стиля текста 1.Повествовательный 2.Рассуждения 3.Описание Стиль текста это в какой форме дается нам текст.Например:текст рассуждение .В этом тексте будет происходить действие тоесть будут разговаривать над какими то вопросами.Текст описание:в тексте описывается какая либо местность,человек,и т.д. Повествовательный текст-в тексте рассказывают о чем либо.
begin Randomize; Writeln('Исходный массив'); min:=32767; for i := 1 to n do begin a[i] := Random(99)+1; Write(a[i]:3); if ((a[i] mod 2)<>0) and (min>a[i]) then min:=a[i] end; Writeln; Writeln('Минимальный нечетный элемент равен ',min) end.
Я уже сделал на паскале Ладно пусть будет... var a: array[1..10] of integer; i,j,k,sum,d:integer; h:real; begin d:=0; for i:=1 to 10 do for j:=1 to 5 do begin readln(a[j]); if j=5 then begin sum:=0; for k:=1 to 5 do sum:=sum+a[j]; h:=sum/5; writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2 if h<7 then inc(d) end; end; write(d, ' учеников - имеют средний ниже среднего'); end.
Есть 3 стиля текста
1.Повествовательный
2.Рассуждения
3.Описание
Стиль текста это в какой форме дается нам текст.Например:текст рассуждение .В этом тексте будет происходить действие тоесть будут разговаривать над какими то вопросами.Текст описание:в тексте описывается какая либо местность,человек,и т.д. Повествовательный текст-в тексте рассказывают о чем либо.