Досыма хат. Файлдан оқу тақырыбы жайлы досыңа хат жаз. Хат мазмұнында жазылған оқудың ерекшеліктері мен оны программалау үшін маңызын әңгімелеп бер. Хаттың мазмұнында осы тақырыпты меңгерудегі қиыншылықтарың жайлы ойыңды жаз. Сонымен бірге бұл тақырыпты ойдағыдай меңгерген жағдайда программа құруда жаңа қандай мүмкіндіктерге қол жеткізетінің туралы сөз қозға РЕБЯТА БУДЬТЕ НОРМАЛЬНЫМИ И НЕ ОТВЕЧАЙТЕ НА ЭТОТ ВОПРОС ТИПО У КОГО ЕСТЬ И ТД. СДЕЛАЙТЕ НОРМАЛЬНООО ТОЛЬКО СДЕЛАЙТЕ ЭТО ЗАДАНИЕ ПРАВИЛЬНО ​

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.