Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin >> n;
int ans = 0, cur;
for (int i = 0; i < n; i++)
{
cin >> cur;
ans += (cur % 3 == 0);
}
cout << ans;
}
Первая задачка
int X, Y;cout << "Введите X" << endl;cin >> X;count << endl;while(Y > 0){ Y--; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}while(Y < X*10){ Y++; if((X+Y)/2 == 10){ cout << "Искомое число Y: " << Y << endl; }}
Выкройка - швейное изделие<span>
географическая карта России - континент Евразия
</span><span>архитектурный проект - здание
</span><span>расписание занятий - графическое представление звонков
</span>Всё перечисленное - инф. модели