Program mas; var a: array[1..100] of integer; i, n: integer; begin randomize; writeln('введите размерность массива',n); readln(n); for i: =1 to n do a[i]: =random(45)-1; readln; for i: =1 to n do begin if a[i]> 15 then write(' ',a[i]); end; readln; end.
Спасибо
Ответ дал: Гость
"солнце" - круг с точкой в центре
"идти" - две ноги
"хлеб" - полукруг
"рот" - сильно вытянутый полуовал
Ответ дал: Гость
var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.
Популярные вопросы