с заданиями на Python, : Решить с генераторов списка.
1: Даны два списка фруктов. Получить список фруктов, присутствующих в обоих исходных списках. *Примечание: Списки фруктов создайте вручную в начале файла.
2: Дан список, заполненный произвольными числами. Получить список из элементов исходного, удовлетворяющих следующим условиям: Элемент кратен 3, Элемент положительный, Элемент не кратен 4. *Примечание: Список с целыми числами создайте вручную в начале файла. Не забудьте включить туда отрицательные числа. 10-20 чисел в списке вполне достаточно.
3. Напишите функцию которая принимает на вход список. Функция создает из этого списка новый список из квадратных корней чисел (если число положительное) и самих чисел (если число отрицательное) и возвращает результат (желательно применить генератор и тернарный оператор при необходимости). В результате работы функции исходный список не должен измениться. Например: old_list = [1, -3, 4] result = [1, -3, 2] *Примечание: Список с целыми числами создайте вручную в начале файла. Не забудьте включить туда отрицательные числа. 10-20 чисел в списке вполне достаточно.
var a:array[1..100,1..100]of integer;
n,m,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=m downto 1 do
if(a[i,j] mod 2=0)then a[i,j]:=a[i,j]+a[i,1];
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
n,m-размеры матрицы
a[i,j]-элементы матрицы
пример
n=3 m=3
1 2 3
4 5 6
7 8 9
вывод:
1 3 3
8 5 10
7 15 9
a[1,2]:=a[1,2]+a[1,1]=2+1=3
a[2,1]:=a[2,1]+a[2,1]=4+4=8
..
но чтобы первый элемент строки не изменился перед тем как нам нужно будет проверит другие элементы поэтому for j:=m downto 1
делаем т.е с конца строки проверяем чтобы первый эл.строки матрицы не изменилась
Надеюсь всё понятно
a: array[1..n] of integer;
k, i, m: byte;
min: integer;
begin
Write('Razmer massiva: ');
Readln(k);
if (k < 0) or (k > 100) then
begin
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');
Readln;
Exit;
end;
Randomize;
Writeln('Ishodn. massiv: ');
for i:=1 to k do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
end;
min:=a[1];
for i:=2 to k do
if a[i] < min then
begin
min:=a[i];
m:=i;
end;
a[m] := a[1];
a[1] := min;
Writeln;
Writeln('Min element = ', min:4, ' v posicii ', m:3);
Writeln('Rezult. massiv: ');
for i:=1 to k do
write(a[i]:4);
readln;
end.