Вася Пупкин пошел в лес за ягодой. Если он соберет больше 10 кг ягод, то, продав ее, купит себе Xbox 360, если не соберет – купит Тетрис.
Составить программу для Васи
Uses CRT;
var kg:real;
begin
writeln(‘Сколько кг собрал Вася? ’);
read(kg);
if kg>10
then write(‘Вася купит X-box’)
else write(‘Вася купит тетрис’);
end.
ответить на во письменно:
1. К какому типу относится данная программа – выводы внутри условия или действия внутри условия (2 типа программ указаны выше)
var A,B: array[1..200] of real;
N, i: integer;
begin
write('Введите количество элементов массивов A и B: ');
readln(N);
writeln('Введите значения элементов массива A');
for i:=1 to N do read(A[i]);
writeln();
for i:= 1 to N do
if (i mod 2 = 0) then B[i]:=i*A[i]
else B[i]:=-A[i];
writeln('Массив В:');
for i:=1 to N do write(B[i]:2:2,' ');
end.
2)
var A: array[1..200] of integer;
N, i: integer;
begin
write('Введите количество элементов массива A: ');
readln(N);
randomize;
for i:=1 to N do
A[i] := random(86)-15;
writeln('Массив А: ');
for i:=1 to n do write(A[i], ' ');
end.