–1 дауыс
460 көрілді
өтінемін мына есептерді шығарп берінздерш?1-есеп оның аты мен жыл мезгілін ай номеріне қарап отырып анықта 2-есеп 10 оң саннан массив құру керек. қатар орналасқан үш санның қосындысы ең үлкен болатынын анықта.осы қосындыны экранға шығару керек, ал сандарды нолмен ауыстыру керек. 3-есеп сары және қызыл түсті моншақтардан тұратын сәндік алқа берілген. Бір түсті қатар келетін мншақтардың ең үлкен санын табыңдар.

1 жауап

+1 дауыс
var i,n,s,j,max:longint;
a:array[1..100]of integer;
begin
max:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 8 do begin
s:=0;
for j:=i to i+2 do
s:=s+a[j];
if s>max then begin
max:=s;
a[j]:=0; a[j-1]:=0; a[j-2]:=0; end;
end;
write(max);
end.
...