Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)
Условия задач и их решения прикреплены во вложениях.
var
A:array[1..100] of integer;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] > 0 then
Summ := Summ + A[i];
end;
writeln;
if Summ <> 0 then
writeln('Summ = ', Summ)
else
writeln('Нет ни одного положительного элемента');
readln;
end.
//вторая программа
var
A:array[1..100] of integer;
B:array[1..100] of real;
n, i, Summ:integer;
begin
randomize;
write('n = ');
readln(n);
Summ := 0;
for i := 1 to n do
begin
A[i] := random(201) - 100;
write(A[i], ' ');
if A[i] mod 2 = 0 then
B[i] := A[i] / 2
else
B[i] := A[i];
end;
writeln;
writeln;
writeln('Result:');
for i := 1 to n do
write(B[i], ' ');
readln;
end.
Маша не говорит по-французски (она не играет на скрипке). Она же не знает итальянского. Т. е. она знает либо английский, либо немецкий.
Оля - виалончелистка - не знает итальянского, английского и французского - т. е. говорит на немецком.
Лена не играет на арфе, но, т. к. рояль и виалончель уже заняты, то играть она может только на скрипке, и говорит она по-французски.
Соответственно Валя играет на арфе и говорит по-итальянски. А Маша говорит по-английски.
Итого:
Маша - Рояль, Английский
Оля - Виалончель, Немецкий
Лена - Скрипка, Французский
Валя - Арфа, Итальянский