1) const n=10; var a:array[1..n]of integer; i:integer; begin for i:=1 to n do read(a[i]); writeln; for i:=1 to n do write(a[i]:4); end.
2) var a:array[1..1000]of real; i,n:integer; begin writeln('n ?'); readln(n); for i:=1 to n do begin writeln('INPUT ',i,' элемент'); readln(a[i]); end; writeln; for i:=1 to n do write(a[i]:4:2); end. 3) var a:array[1..1000]of real; i,n:integer; begin writeln('n ?'); readln(n); for i:=1 to n do begin a[i]:=random; write(a[i]:4:2); end; writeln; end.
CLS DIM n AS INTEGER INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n INPUT "Введите имя студента:", studentName(i) INPUT "Введите год рождения студента:", studentYearsOld(i) NEXT i PRINT FOR i = 1 TO n PRINT "Студент "; studentName(i) studentYrs = 2016 - studentYearsOld(i) IF studentYrs < 18 THEN PRINT "Лет до права голоса:"; 18 - studentYrs ELSEIF studentYrs >= 18 THEN PRINT "Студент уже имеет право голоса!" PRINT END IF studentYrs = 0 NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.
const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to n do
write(a[i]:4);
end.
2)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
writeln('INPUT ',i,' элемент');
readln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4:2);
end.
3)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
a[i]:=random;
write(a[i]:4:2);
end;
writeln;
end.
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.