Ответ:
var a:array [1..10] of integer;
i:integer;
b:integer;
begin
for i:=1 to 10 do
if (a[i]>12) and (b=0) then b:=a[i] else if a[i]>12 then b:=b*a[i];
writeln (b);
end.
Объяснение:
Берем массив а под линейную таблицу. Создаем цикл фор, который проверяет сначала если наша переменная с ответом=0 и элемент массива>12, то наш ответ=элементу массива, после этого если элемент массива>12, то цикл умножает этот элемент массива на переменную с ответом. В конце программа выводит ответ.
Program prog;
uses crt;
var
a:array[1..100] of real;
m:integer;
s1, s2, s3, s4:real;
begin;
for m:=1 to 12 do
begin
write('В месяц ',m,' температура t = ');
readln(a[m]);
end;
s1:=(a[12]+a[1]+a[2])/3;
s2:=(a[3]+a[4]+a[5])/3;
s3:=(a[6]+a[7]+a[8])/3;
s4:=(a[9]+a[10]+a[11])/3;
writeln('Средняя температура зимних месяцев = ', s1:0:3);
writeln('Средняя температура весенних месяцев = ', s2:0:3);
writeln('Средняя температура летних месяцев = ', s3:0:3);
writeln('Средняя температура осенних месяцев = ', s4:0:3);
end.
Vинф.=вес одной точки*кол-во точек; N(мощность алфавита)=колво цветов в степени i; где i это вес одной точки. N1=1024; i1=10; N2=32; i2=5;
V1/V2=10\5=2/1. Ответ: в 2 раза
<span>в ворде формат/шрифт. и там все настройки и относятся к форматированию шрифта, начертание, размер, шрифт и т. д</span>
Операционная система — комплекс системных программ, расширяющий возможности вычислительной системы, а также обеспечивающий управление её ресурсами, загрузку и выполнение прикладных программ, взаимодействие с пользователями. В большинстве вычислительных систем операционные системы являются основной, наиболее важной (а иногда единственной) частью системного программного обеспечения.