Нарисуй множество из 3 овощей. рядом нарисуй равное ему множество.

3 овоща - огурец, помидор, морковь.

и например 3 фрукта - яблоко, груша, киви.

 

это значит нарисовать 3 вида овощей (помидоры, огурцы и баклажаны) и равнозначных з вида, допустим грибов (опята, лисички,

//pascalabc.net 3.2 сборка 1318 var   matrix: array of array of integer;   i,j,min,n,k,mini,minj: integer; begin readln(n); setlength(matrix,n+1); for i: =1 to n do   setlength(matrix[i],n+1); writeln('first matrix: '); for i: =1 to n do   begin     for j: =1 to n do       begin         matrix[i,j]: =random(10);         write(matrix[i,j]: 4);       end;     writeln;   end; write('введите строку: '); readln(k); min: =integer.maxvalue; for i: =1 to n do    if min> matrix[k,i] then     begin       min: =matrix[k,i];       mini: =k;       minj: =i;     end; matrix[mini,minj]: =0; writeln('final matrix: '); for i: =1 to n do   begin     for j: =1 to n do       write(matrix[i,j]: 4);     writeln;   end; end. пример работы программы: 3 first matrix:     3   0   0     2   5   9     8   4   4 введите строку: 3 final matrix:     3   0   0     2   5   9     8   0   4

Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. посему проверка на отрицательность делаться не будет - ввод чисел меньше 1 противоречит условию . вариант 1. без операторов цикла. var   a,b,c,d: integer; begin   write('введите 4 натуральных числа: ');   read(a,b,c,d);   if a mod 2=0 then writeln('корень из ',a,' равен ',sqrt(a));   if b mod 2=0 then writeln('корень из ',b,' равен ',sqrt(b));   if c mod 2=0 then writeln('корень из ',c,' равен ',sqrt(c));   if d mod 2=0 then writeln('корень из ',d,' равен ',sqrt(d)); end. пример решения введите 4 натуральных числа: 3 8 16 12 корень из 8 равен 2.82842712474619 корень из 16 равен 4 корень из 12 равен 3.46410161513775 вариант 2. с оператором цикла. var   i,n: integer; begin   for i: =1 to 4 do begin       write('введите натуральное число: ');       read(n);       if n mod 2=0 then writeln('корень из ',n,' равен ',sqrt(n))       end end. пример решения введите натуральное число: 3 введите натуральное число: 8 корень из 8 равен 2.82842712474619 введите натуральное число: 16 корень из 16 равен 4 введите натуральное число: 12 корень из 12 равен 3.46410161513775 вариант 3. с массивами var   i: integer;   a: array[1..4] of integer; begin   write('введите 4 натуральных числа: ');   for i: =1 to 4 do read(a[i]);   for i: =1 to 4 do       if a[i] mod 2=0 then writeln('корень из ',a[i],' равен ',sqrt(a[i])) end. пример решения введите 4 натуральных числа: 3 8 16 12 корень из 8 равен 2.82842712474619 корень из 16 равен 4 корень из 12 равен 3.46410161513775