1 var a:array[1..10]of integer; s,i:integer; begin for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do if a[i]>0 then begin s:=s+a[i]; write(a[i],' '); end; writeln; writeln('Сумма: ',s); end.
2 var a:array[1..20]of integer; s,i:integer; begin writeln('Исходный массив:'); for i:=1 to 20 do begin a[i]:=random(20); write(a[i],' '); end; writeln; write('Искомые элементы: '); for i:=1 to 20 do if i mod 2=1 then begin s:=s+a[i]; write(a[i],' '); end; writeln; writeln('Их сумма: ',s); end.
3 var a:array[1..20]of integer; s,i:integer; begin writeln('Исходный массив:'); for i:=1 to 20 do begin a[i]:=random(-50,50); write(a[i],' '); end; writeln; write('Меньше 25: '); for i:=1 to 20 do if a[i]<25 then begin s:=s+1; write(a[i],' '); end; writeln; writeln('Их количество: ',s); end.
А)заполним водой 4х литровый сосуд и выльем его в семилитровый .в семилитровом останется место для 3 литров опять наберём 4х литровый сосуд и выльем в 7 литровый сосуд так как там осталось 3 литра то в 4х литровом сосуде останется литр. б)заполним водой 4х литровый сосуд и вылем в 7литровый сосуд опять наберём 4х литровый сосуд и выльем 7 литровый наполнится а в 4х литрово останется 1 литр.Выльем всё из 7 литрового сосуда и нальём литр из 4х литрогого теперь опять наберём 4х литровый и выльем в 7 литровый там будет пять литров.
11101=29
1111=15
100110= 38