1и 3)var ar: array[1..50] of integer; i,k,min: integer; begin; min: =100; writeln('array: '); for i: =1 to 50 do begin; ar[i]: =random(10)-5; write(ar[i]: 4); if ar[i]=0 then inc(k); if ar[i]< min then min: =ar[i]; end; writeln; writeln('0: ',k); writeln('min: ',min); end. 2) var ar: array[1..40] of integer; i,k: integer; begin; writeln('array: '); for i: =1 to 40 do begin; ar[i]: =random(10)-5; write(ar[i]: 4); if ar[i]> 1 then inc(k); end; writeln('result: ',k); end.
nairahay
27.12.2020
лещинер в.р. егэ 2016. информатика. типовые тестовые . — м.: экзамен, 2015. крылов с.с., ушаков д.м. егэ 2016. информатика. тематические тестовые . — м.: экзамен, 2015. ушаков д.м. егэ-2016. информатика. 20 типовых вариантов экзаменационных работ для подготовки к егэ. — м.: астрель, 2015.ройтберг м.а., зайдельман я.р. информатика. подготовка к егэ в 2016 году. диагностические работы. — м.: мцнмо, 2015.самылкина н.н., синицкая и.в., соболева в.в., егэ 2016. информатика. тематические тренировочные . — м.: эксмо, 2015.зорина е.м., зорин м.в. егэ 2016. информатика. сборник . — м.: «эксмо», 2015.крылов с.с., чуркина т.е. егэ 2016. информатика и икт. типовые экзаменационные варианты. — м.: «национальное образование», 2015.богомолова о.б. егэ информатика. новый полный справочник. больше полезной информации в по егэ.удачи в подготовке.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
К16.найдите площадь круга, если известно длина окружности