Если правильно понял ваше задание, то вот...
Однако всё равно не вполне ясна связь с разделом информатики, в котором опубликован вопрос.
"Изображённый на правой картинке воин вооружен современным оружием, способным поражать противника издалека. Его снаряжение практично и продуманно для ведения боя в современных условиях. Слева от него изображён воин, который жил раньше, поэтому его вооружение представляет себя только необходимые для ведения ближнего боя меч и щит. Такой воин лишён защитных качеств и удобства современной амуниции, вместо которой использует обычную одежду своего времени"
#include <iostream>#include <conio.h>
using namespace std;
int main(){setlocale(LC_ALL,"Russian"); cout << "Эта программа будет создавать массив и выводить каждый нечётный элемент." << endl; int si_ze,massiv[200]; cin >> si_ze; for (int i = 0; i < si_ze;i++){ cin >> massiv[i]; } for (int i = 0;i < si_ze;i++){ if (massiv[i]%2 == 1) cout << i << ' '; }
return 0;}
Var a:array[1..20] of integer;
i:integer;
sr:real;
begin
for i:=1 to 20 do begin
a[i]:=random(-20,20);
sr+=a[i];
write(a[i],' ');
end;
writeln;
write(sr/20:3:2);
<span>end.</span>
Uses GraphABC;
var a,b,c:array[10..99] of integer;
ast,bst,cst:string;
i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
<span>end.</span>
Uses crt;
var
a,b,c:byte;
s,p:integer;
begin
clrscr;
write('a: ');readln(a);
write('b: ');readln(b);
write('c: ');readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)(p-b)(p-c);
writeln(' площадь треугольника = ',s);
readln;
end.
p.s: писала без паскаля, ошибки не проверила)) но должно правильно решить:)
