uses crt;
var
ar: array[1..19]of integer;
i, mul, sum, count, min, mini: integer;
begin
count := 0;
sum := 0;
mul := 1;
randomize;
for i := 1 to 19 do
begin
ar[i] := random(13) - 6;
mul := mul * ar[i];
if(ar[i] mod 2 = 0) then
begin
textbackground(green);
sum := sum + ar[i];
count := count + 1;
end;
if(ar[i] = 5) then
textbackground(red);
write(ar[i], ' ');
textbackground(black);
end;
writeln();
writeln('Произведение всех элементов массива = ', mul);
writeln('Сумма четных чисел = ', sum, ', количество = ', count);
min := ar[1];
mini := 1;
write('Номера элементов, равных 5: ');
for i := 1 to 19 do
begin
if(ar[i] = 5) then
write(i, ' ');
if((ar[i]) < min) then
begin
min := ar[i];
mini := i;
end;
end;
writeln();
writeln('Минимальный элемент = ', min, ', его номер = ', mini);
end.
Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
P.S Программа написана для Pascal.
program summa;
var
s:real;
i, n: integer;
begin
writeln('Введите число n: ');
read(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
writeln('S= ',s:4:2);
end.
Ответ:
https://tproger.ru/problems/python-3-exercises-for-beginners-geekbrains/
Объяснение:
1.
t = [1, 1, 4, 3, 2, 5, 8, 13, 21, 34, 56, 90, 135]
for i in range(len(t)):
if i < 5:
print(t[i])
2.
result = []
for elem in a:
if elem in b:
result.append(elem)
print(result)
3.
result = sorted(my_dict, key=my_dict.get, reverse=True)[:3]
Черти просто по клеточкам чтобы получился квадрат потом раздели их на 3 равные части